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Rispondere alle esigenze sempre maggiori degli utilizzatori di mini e micro computers è la missione che si è fissata RHONE- 
POULENG SYSTEMES fabbricando FLEXETTE, Grazie alla tecnologia messa in opera nella fabbricazione di questi dischi, 

I utilizzatore usufruisce di condizioni ottimati di registrazione. In particolare la certificazione 100% ERRGR FREE sia sulle 
tracce che tra le tracce assicura la conservazione anche in condizione d'impiego marginali e l’Intercambiabilità dell'Informa¬ 
zione registrata. Gli standards di qualificazione che determinano Sa certificazione di FLEXETTE si situano ben al di là dei limiti 
fissati dagli standard industriali. FLEXETTE rimane ERRGR FREE anche dopo più di 40 milioni di passaggi sulla stessa 
traccia, FLEXETTE è riservato agli utilizzatori che ricercano la garanzia di un'alta tecnologia. 


Per provare FLEXETTE nella Vostra regione: 



RHONE 

POULENC 

SYSTEMES 

settore informateli 


concessionari autorizzati 


MILANO 

TORINO 

VERONA 

FIRENZE 

PARMA 

ROMA 

NAPOLI 

BOLZANO 


S.D,C. S.a.S./Tel. 64.35.533 
PROGRAMMA UFFICIO S.a.S./Tel. (011) 41.13565 
MIO A S.r.lJTel. (045) 59.05.05 
aS.S. S.n.c. / Tel. (055) 67 96 30 
TECNODATA S.a.S. / Tel (0521) 25.079 
MASSIMO BRENUANl/Tel, (06) 81.27.665 
TES, IN / Tel. (OSI) 64.31 22 
DATAPLAN S.a.S, / Tel. {0471) 47.721-47.056 


RHÓNÉ POULENC ITALIA S.p.A. 

OMslOfté Rhóne Pouienc svstemes 
via Romagnoli 6 - wm viila^o tei. 4246i 
telex ita rpc 332530 







































AB A: la microinfòrmatica, 

chiavi in mano. 


ABA ELETTRONICA non si limita a trattare la più 
ampia gamma di marche e di modelli per tutte le ap¬ 
plicazioni, da quelle hobbistiche alle gestionali, 
ABA ELETTRONICA mette a vostra disposizione il 
mondo della microinfòrmatica, dal corsi di istruzio¬ 
ne a vari livelli, all’assistenza tecnica più qualificata, 
alla vendita di periferiche, accessori e pubblicazioni 
Vi aiuta a scegliere inoltre. Nella sua sala di dimo 
strazione è possibile provare e confrontare quanto 
di meglio offre oggi il mercato. E quando avrete 


deciso per un mìcrocomputer, ABA ELETTRONICA 
vi propone di scegliere la forma dì acquisto che pre¬ 
ferite. Anche in leasing o per corrispondenza. 

Infine ABA ELETTRONICA vi fornisce tutti i pro¬ 
grammi, standard o su misura, siano essi gestio¬ 
nali, professionali o scientìfici che Vi necessitano 
provvedendo anche all'addestramento dell'opera¬ 
tore sui sistema che avete scelto e su tutta la mi¬ 
croinformatica che lo riguarda. 

Chiavi in mano. 


Quella del Commodore, 

ad esempio. 



Desidero ricevere 
in torma doni sui seguenti 
Vs, prodotti e servizi: 


f/ ELETTRONICA 

Il centro più completo 
a memoria di computer. 

Vendita, Programmazione e Assistenza: 

ARA ELETTRONICA - 10141 Torino ■ Via Fossati 5/c 
Tel. {Oli) 33,20.65/38.93,28 
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€" Commodore 

a Roma 




P.le Asta, 21 - 00144 ROMA EUR - Tel. (06) 5916438 


CENTRO REGIONALE di 
DISTRIBUZIONE, VENDITA, ASSISTENZA 


• Vie. 20 e accessori 

• Dischi Winchester (Commodore) :5, 8,22, 30 MB 

• Backup su nastro magnetico 

• Sviluppo procedure personalizzate 

• Contratti di manutenzione per parti di ricambio 



Attualità 
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Commodore delle mìe brame, chi sarà il più bello del reame? 


Quando il Commodore non fa il crumiro 


Programmi Vie 

Bioritmi 

Flottaggio Hi - Res 

Giornale luminoso 

10 

18 

48 

Commodore 64 

1 package italiani del 64 

15 

Programmi CBM 

Gestione veloce delle cassette 

22 


Come recuperare i file persi 

39 


Caratteri grafici per t H 8G32 

50 

Distributori 

Piemonte, Aba Elettronica 

17 

Didattica 

Imparare a programmare col Vie 

23 


L'aritmetica binaria 

56 

Rubriche 

Domande/Risposte 

6 


Humour 

50 
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Riservato 
agli ingegneri 


II miglior software tecnico 
su elaboratori 
CBM - Commodore 


“S.S. - 80 ” 

L’ormas famoso programma per il calcolo delle strutture in¬ 
telaiate piane in c.a M in zona sismica, che sviluppa e dise¬ 
gna anche le carpenterie delle armature. 

(Ultima versione Luglio/1982 nostra esclusiva), 


“FONDAZIONI” 

Risolve tutti i problemi di fondazioni (trave elastica su suo¬ 
lo elastico) di strutture in c.a. in zona sismica e non, risol¬ 
vendo l'intero graticcio di fondazione e proponendo una 
carpenteria sofisticata ed ottimizzata, 


“MURI DI SOSTEGNO” 

A gravità, a mensola o a contrafforti, anche in zona sismi¬ 
ca, secondo il 0,M. del 21/1/1961. 


“PENDÌI” 

Analizza la stabilità di un pendio o di un fronte di scavo sot¬ 
to diverse condizioni e la verifica relativa viene condotta in 
termini di tensioni effettive; la stima dei fattori di sicurezza 
viene effettuata secondo i metodi di Fellenius, Bishop e 
Jambu. 


“COMPUTI METRICI” 

Analisi ed elenco prezzi Metodo veloce e completamente 
automatizzato per il computo e la stima dei lavori, 


“REVISIONE PREZZI” 

Secondo le disposizioni di legge vigenti, Praticità ed auto¬ 
mazione consentono di eseguire velocemente revisioni di 
prezzi anche per lunghi periodi. 

Richiedeteci documentazione e output dei pro¬ 
grammi di vostro interesse, Resterete sbalorditi 
dalla versatilità e dalia completezza dei nostro 
software. 


fjSIRANGELO COMPUTER Srl 


Via Parisio, 25 - Cosenza 0984-75741 

NEW NEW NEW NEW NEW NEW NEW 
E pronto il nuovissimo programma 
“ORARIO SCOLASTICO” 


Sin dal momento del suo lan- 
ciò su] mercato ci sono state 
poste deDe domande ricorren¬ 
ti sui Commodore 64. Le più 
frequenti sono le seguenti. 

Che tipo di BASIC usa? 

Il BASIC 2,0, lo stesso del 
Vie-20. 

I programmi PET si possono 
applicare sul 64? 

Esiste un emulatore PET 
che emula l'originale della 
vecchia ROM 200L Pertanto, 
qualsiasi programma in BA¬ 
SIC 2 che non usi FbEK, PQ- 
KE, USR, o SYS dovrebbe 
funzionare, 

D Commodore 64 può essere 
usato su un televisore dome¬ 
stico? 

Si! E T sufficiente allegar¬ 
lo alla presa. 

Posso imparare a programma¬ 
re con il Commodore 64? 

Si! La fortunata serie “In¬ 
troduzione al BASIC” è stata 
adattata al Commodore 64 ed 
è ora disponìbile (vedi Tarli- 
colo sui programmi disponi¬ 
bili). 

0 software del Vic-20 è appli¬ 
cabile al Commodore 64? 

Qualsiasi programma che 
non usi PEEIC POKE, USR o 


SYS dovrebbe funzionare, E 
programmi che contengono 
questi comandi dovranno es¬ 
sere modificati per una diver¬ 
sa configurazione di memoria 
del 64. 1 programmi su casset¬ 
ta del Vic-20 non possono es¬ 
sere direttamente caricati sul 
64. Questo è dovuto alla di¬ 
versa velocità di trasferimento 
dei dati delle due macchine. 
Questi programmi devono 
prima essere trasferiti dalla 
cassetta al dischetto e quindi 
caricati. 

Le cartucce del Vie fun/iona¬ 
no sul 64? 

No perchè la configurazio¬ 
ne di memoria del 64 è diver¬ 
sa da quella del Vic-20, le car¬ 
tucce giochi per il Vic-20 non 
possono essere usate sul 64. 


Die cosa sono gli Sprites? 

Sì tratta di blocchetti pro¬ 
grammabili che si possono 
muovere sulfo schermo. Sino 
ad otto sprites indipendenti si 
possono spostare contempo¬ 
raneamente. 

Esiste un codice monitor inte¬ 
grato? 

No. Comunque un sistema 
di sviluppo assembler sarà di¬ 
sponibile all*inizio di aprile. 
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La MEE esclusivista 

per l'Italia dei ^ 

prodotti VERBATIM 1 r 

DATALIFE VI 

propone oltre 

alla più 

completa 

j[ - ■ 

gamma di ^ 

supporti 
magnetici anche 
armadi ignifughi 
Rosengrens, nastri 
inchiostrati per tutte le 
stampanti, mobili e tavoli 
porta terminali per 
['arredamento dei CED. 

Zon i prodotti MEE 
le registrazioni dei Vostri dati 
non hanno più problemi di 
affidabilità' 


M Vi prega voi 

inviare la vost 
\ v / compie 

documentirioi 
\ relativa 

x □ Dische 

e inoli 

□ Disk'packs [ Il Nastri inchiostri 
□ Armadi ignifughi i Mobili per CE 


■ MEE ■ Memorie per Elaboratori Elettronici s.r.l 
- ® Forniture per Centri Elaborazione Dati 

Sede Amm.va; 2QH& Milano ■ Via Soni, 29 
Tei. 4988S41 (4 linee r,a.) 4936296’4984196 
Filiali e Agenzie: Milano ■ Bergamo ■ Torino - 
Biella ■ Padova ■ Parma - Bologna ■ Firenze - Ancona - 
Roma - Napoli ■ Catania - Oristano • Bari • Genova * 
Bolzano ■ Mestre ■ r 
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Cassette per espansione di 
memoria. 

VIC 20 ha una memoria di base 
di 5 K bytes. Per aumentarla sino 
a 32 K bytes hai a disposizione 
tre cassette da 3, 8 e 16 K RAM. 
Basta inserirle nel VIC oppure 
nell’apposito Memory expansion 
board. 



VIC 20 è un sistema interamente 
espandibile grazie alia semplice 
aggiunta di moduli, questi che 
vedi e molti altri. 


VIC 20 Computer, 

Questo è il favoloso VIC 20 
computer* 5 K-Bytes espandibili 
a 32. 24 colori. Note musicali. 
Collegabile all'unita nastro. alTimità 
disco c alla stampante. C ollegabile 
in Modem con le normali linee 
telefoniche. 


VIC 20 Single drive lloppy disk. 
Unità a disco. 

Questo “floppy" consente di 
sfruttare tutta la potenzialità del 
VIC 20. Mette a disposizione nn 
metodo veloce ed efficiente per la 
memorizzazione e il recupero dei 
dati c dei programmi. 

Abbinando ii floppy disk alla 
stampante, il VIC 20 diventa un 
computer system ideale per il 
piccolo imprenditore, per i! 
professionista, per le ricerche. 
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Cassette I nit. Unità a nastro. 

È questo il primo degli accessori 
del VIC. Viene utilizzata per 
memorizzare dati e programmi 
o per inserire cassette con 
programmi già pronti. 

Si coliega direttamente con il 
VIC 20. 


Stampante VIC 20. 

Come ogni periferica VIC 20 questa 
stampante è prodotta con alta 
specializzazione e basso costo. 

Ha mille utilizzi. 

Per fare copie dei programmi, per 
fare lettere circolari, grafici, dati di 
lavoro, etc. Per realizzare 
programmi di word processing. 







Commodore delle mie brame, 
chi è il più bello del reame? 


In base al bioritmo disegnato da un Commodore 64, alcuni leader politici arriveranno alle 
votazioni in condizioni psico-fìsiche piuttosto disastrare. Se lo avessero saputo prima, la data delle 
elezioni sarebbe stata certamente diversa 


QUANTO saranno in forma i no- 
stri uomini politici durante il pe¬ 
rìodo elettorale? Un Commodo¬ 
re 64 risponde a questa domanda 
tracciando il bioritmo di quattro 
personaggi di spicco; Berlinguer, 
Craxi, De Mita e Palmella. 

Per quanti non Io sappiano 
ancora (pochissimi fans dei per¬ 
sonal computer, crediamo) ricor¬ 
diamo che secondo la teoria dei 
bioritmi il corpo umano ha degli 
orologi interni o ritmi metabolici 
a cicli di tempo costanti. 


Si pensa che esìstano tre cidi 
che iniziano alla data di nascita 
in direzione positiva. 

lì ciclo di 23 giorni, 0 fisico, 
riguarda: la validità, la resistenza 
fisica e l’energia. 

II ciclo di 28 giorni, o sensiti¬ 
vo, riguarda la sensibilità, V intui¬ 
zione e il buonumore. 

Il ciclo di 33 giorni, o cono- 
s c i t ivo, riguarda la prontezza 
mentale e il discernimento. 

Per ogni ciclo, un giorno può 
essere considerato alto, basso o 
critico. 


Nei periodi alti (0<XO1), ì 
più energici, ci si sente più dina- 
m icL Durante i periodi bassi 
(-1<-X<0) 3 si recupera l’energìa 
spesa durante h periodo attivo. 

Nei perìodi crìtici (X = 0) spe¬ 
cialmente ai “fisici” ed ai sensiti¬ 
vi, possono accadere incidenti. 

I programmi di bioritmo sona 
disponibili su nastro per qualsiasi 
modello di computer CBM. Molti 
utenti, però, preferiscono scrive¬ 
re da sè il proprio bio-program¬ 
ma, Ecco, comunque, il listato 
pervenutoci da un lettore. 


100 REFI BIORITMI 

110 REFI COPYRIGHT BV IVRNQ BIFFI 1982 
120 1^0:Z=.399914159265 
130 FRINTCHR#(147); TflBC14) J "BIORITMI 11 
140 GOSUBÌ280iFRINT SPRINT 
158 FRI NT 11 DATA DI NASCITA” 

160 GOSUB380 
170 6OSUB600 
180 JB=JB 

198 PRI NT SPRINT l, Dfì CHE GIORNO ?" 

200 GQSUB500 : G0SUB1231 
218 GOSUB600 
220 JC*JD 

230 XFJCXFBTHEN270 
268 GOTO148 
270 FORBITO!000;NEXT 
280 GOSUBI230:ODSUB700 
308 N*JC-JB 

318 V=23'GOSUB800 : G0SUBS56 
328 V-2S:GOSUB800;GQSUB850 


330 V=33:GOSUB800 : GDSUB850 

340 GOSUE1000 

350 PRINTCÌ3 TRBC8)J Lf 

368 JC“JC+1 : L=L+1 ; IFK15THEN300 

370 PRINT : PRINT" / F'FI NE i '"SPADE é CONTIMU A " 

380 GETR*J IFR$= ,PI1 THEN330 

398 IFRf="F"THEN120 

490 L=0:GOTD2S0 

500 FRINT 

505 INFUT ' f GI ORNO < Bfi 1 A31 ) 11 J D 

586 IFD=0THEN1235 

510 D«INT(D>iIF3<ltìRIO31THEN505 

529 INPUT 11 MESE (Biflì R12 ) 11 ; M 

538 M-INTCM) : IFM<10RM>12THEN520 

540 INPUT 11 ANNO 1 * ; V 

550 Y*INT(Y>;IFYC0THEN540 

560 IFV>99THEN500 

570 Y S Y SPRINT "VA BENE/UV 

580 RETURN 
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2 . Il grafo di Bottino Craxi ... (nate il 24 febbraio 
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4. e quello eli Marco Pannai!? (data di nascita 2 maggio T930I 
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60® W*INT<<M-14)/12+Z) 

610 JD=INTC1461#CV+4800+WV4) 

620 E=367*<m-2-W*12)/12 

630 IFB<0THENB*B+Z 

640 B S INT(B):JD®JD+B 

650 B-INT<IHT(3Xf<V+4900+iJ)Z100)/4> 

660 JB=JD+D-32075-B 
670 RETURH 

700 PRINTCHR$C147)j j 

710 PRINTTflBC14);"BIORITMI " 

720 FRINT :PRINT’’BfiTfi".: TRBC0) ; 

730 PRINT" NEG’';TfiBC8>; “ 0' 1 ; 1 ' POS" 

740 PRINTTFBC8);UÌ 
750 RETURN 

808 W=IHTCN/V>:R»W-W*V 

810 RETURN 

850 IFVO23THEN900 

855 U=CKR*(32):F0RJ~1T03 

860 L4“L*+L$:NEXT 

870 L*»L*+LEFTf CLf.fi) 

880 Lf=>LEFTf<L$jT)+CHR$Cl94)+RI8HTfCLf.T) 
890 I FV-23THENC$ S "F 11 i 


9O0 IFV= ! 20THEHCf="E" 

910 IFV=33THENCf="I" 

920 "W=R7V : !4=W#2#P 

930 W-T*SIN<W):W»W+T+1.5 

940 W=INTCW):fi$=MID$a$..l'i,l> 

950 IFfif*"F"0Rfi^="E"OPfi$= , '* , 'THENCf= ,, * ,, 
955 IFW»1THEN980 
957 IFW=3iTHEN99® 

960 Lf ~LEFT$ C LS.W-i)+CS+RIGHTfC Lf > 13-W) 
970 RETURN 

930 Lf=Cf+RIGHTf<Lf.12)=RETURN 
990 Lf*LEFTf(LfU12>+Cf ; RETURN 
1090 W=JC+S8569 : R=IHT<4*W/146097) 

1010 W=4M NT C C146097#R+3)74 > 

1920 V=INTC4000*a4+iV1461001) 

1930 W^W-INTC1461#V/4)+32 
1040 M-INT<80*422447) 

1050 1MJ-INT C2447ÌM780) 

I960 W^INTCMZl1):M*M+2“12#W 

1970 V=190*CR-49)+VHJ 

1030 fif^STRfCE) : W-LENC3f)-l 

1093 Cf=f1IBtCPf.W.2)+V" k 
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M00 fl$sSTPS<MVW=L£NfR$)-l 

1110 C$=C$+MIB$<Fì$,l'J,2)+ v " 

1120 flì=STR$(V>:U=LENCflf>'l 
1130 C$-C$+niDI(fl$ J 2..W) 

1140 RETURN 

1230 U*~CHR$ C 32 >:U$=CNRÌ C 210):FORJ=1T03 
1210 U$*U$+UÌ : NEXT 
1220 U$=Uf+LEFT$<U$; S> 


1233 RETURN 

1231 POKE36678,10 

1232 R0RL S 1TO108 

1233 P0KE36876..IHT<RND<1)#128)M28 

1234 FORBITO 13 

1235 NEXTX : NEXTL 

1236 P3KE3687S.. 0 - P0KE3637S.- 3 

1237 RETURN 


Distributori 


Computer Market 
all’ombra del Vesuvio 


La Computer Market è stata co¬ 
stituita nel febbraio 1983 su ini¬ 
ziativa di alcuni imprenditori na¬ 
poletani, già inseriti nel mondo 
EDP, desiderosi di proporsi alfat- 
tenzione di un mercato ingrosso 
fermento come quello d^lla’Cam¬ 
pania del post-terremoto con un 
prodotto che costituirà il grosso 
business degli anni J 8Q. 

La Computer Market, conces¬ 
sionaria regionale della Commo¬ 
dore, sì pone d.gli obiettivi mol¬ 
to ambiziosi il cui raggiungimen¬ 
to ha già da ora imposto certe 
scelte molto precise e definite. 
Una di queste scelte riguarda la 
casa mandante. Infatti la Compu¬ 
ter Market opererà solo con pro¬ 
dotti Commodore sia già presenti 
sul mercato italiano sia di prossi¬ 
mo annuncio. 

A livello obiettivi, uno dei pri¬ 
mi da raggiungere è quello di ren¬ 
dere la giusta immagine al nome 
Commodore. Bisogna convenire 


sul fatto che prima del febbraio 
’83 non esistendo in Campania 
un Dealer vero e proprio le vendi¬ 
te venivano effettuate alla “buo¬ 
na” da chi poteva. Ovvero da di¬ 
stributori delle regioni limitrofe, 
d a qualche rivenditore locale, 
magari con una struttura ancora 
inadeguata, ma principalmente 
da un “sottobosco” di parsone 
improvvisatesi venditori a temp i 
parziale e con strutture pressap¬ 
poco inesistenti, con listini in¬ 
controllati vendevano sfruttando 
un po’ le conoscenze ed un po s la 
diffusione del nome Commodo¬ 
re, Oggi in Campania esistono al¬ 
cuni scontenti in primo luogo per 
1 a m ancata gestione di quel- 
Taspetto fondamentale che è il 
post-vendita. 

Altro obiettivo, anche e;so di 
primaria importanza, è quello di 
creare per tutti i rivenditori un 
reale centro di supporto per tutti 
i tipi di problematiche. Da quelle 
tipicamente orientate al marke-, 


ting (analisi dei mercato, ricerca 
e sviluppo di nuovi canali, studio 
delia concorrenza) a quelle di ti¬ 
po softwaristico di base ed appli¬ 
cativo, (corsi di formazione spe¬ 
cialisti, diffusione di nuovi pac- 
c h etti applicativi, divulgazione 
del word-processing e del data- 
base ecc.)~ Da problematiche 
connesse alla fornitura di sup¬ 
porti magnetici e cartacei al Site- 
preparation globale. 

Anche alla manutenzione là 
Computer Market sta dedicando 
molte energie per V allestimento 
di un laboratorio di manutenzio¬ 
ne e riparazione fornito di tutte 
le parti di ricambio, di tutte le 
attrezzature di diagnosi e prova 
compreso il logie fault locator e 
soprattutto di tecnici di alta qua¬ 
lificazione pronti ad intervenire 
ed a fornire consigli, strumenti e 
parti ai tecnici di manutenzione 
dei rivenditori periferici lontani 
dal Centro di assistenza di Napo 
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Attualità 


Quando Commodore 
non fa il crumiro 


IL SINDACATO non è rimasto prezzo prestazioni, del grado di regioni italiane, risponde perfet- 
indifferente all’evoluzione tecno- modularità e del supporto tecni- tamente alle esigenze del sindaca- 
logica e per la prima volta si avvi- co-organizzativo offerto dalla Co- to: maggiore efficienza e tempe- 
cina a livello nazionale al mondo rei di Udine* stivila nella trasmissione d^Ue no- 

deIP informatica. IT questo il te- Fino ad oggi la tendenza alla tizie e delle informazioni dal cen- 
ma trattato nel corso di una con- realizzazione di un sistema infoi- tro alla periferia, con dotazione 
ferenza stampa a livello nazionale rn stivo distribuito, in aziende alle strutture periferiche di uno 
dal titolo appunto: “La Fib/Cisl aventi una struttura diffusa sul strumento per f invio di messaggi 
adotta il personal computer: un territorio nazionale, ha incontra- e per la gestione anagrafico-am- 
sistema Informativo a misura di le spesso come ostacolo un costo m i n i 3 £ rativa delle sedi locali, 
sindacato” e che si è svolta simul- assai elevato a causa dell’assenza spesso carenti di uomini e di 
rancamente il 3 maggio in 5 città ^i apparecchiature idonee a svol- mezzi. 

dTtalia: Roma, Milano, Torino, gere contemporaneamente tutte La scelta dei personal compu- 
Udine e Bari. le funzioni richieste e con altìssi- ter da parte della Fib/Cisl perse¬ 

la Federazione Italiana Dan- mi costi di instailazione e di eser- gue una strategia di decentramene 
cari (FIB) Cisì, il sindacato di ca- tizio. Il personal computer rap- to operativo e culturale che in- 
tegoria dei lavoratori del settore presenta ora la soluzione ottima- duna tutte le sedi periferiche a 
del credito, ha attivato da circa ìe 3 offrendo versatilità, facilità r a z ionalizzare e qualificare le 
un anno sul territorio nazionale d'uso e basso costo (il Gommo- proprie metodologie di lavoro, 
una rete di telecomunicazioni ed dorè 8000 costa meno di un mi- “Una volta per fare il sindaca- 
elaborazione locale di dati. La re- lione e 300 mila lire e in configli- lista era necessario sopratutto un 
te è stata realizzata mediante fin- razione dagli 8 ai 3,5 milioni). Il certo ‘fiuto’,” ha affermato a Mi- 
stallazione di circa 50 personal package usato, ITtal-Net, è in gra- lana, il segretario nazionale della 
computer Commodore Serie do di computerizzare tutte le fi- Fib/Cisl, Franco E^abrello, “ma 
8000, interconnessi mediante la liali di una organizzazione e di oggi questo non basta più, occor¬ 
rete telefonica pubblica, garantirne un’ottima velocità di rono non solo informazioni ag- 

1 personal computer della trasmissione di dati o di testi fra giornate e immediate ma anche 
Commodore, afferma Sergio Am- le sedi, un’elaborazione costante di que- 

mannalij segretario generale della L’abbinamento hardware-soft- ste informazioni, suda base dtile 
Fib/Cisl, sono stati scelti in con- ware, realizzato per la rete Fib quali impostare in modo rigoroso 
siderazione del buon rapporto nelle sedi periferiche in tutte le una contrattazione sindacale”. ■ 
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Commodore 64 


Tutti i package 
“italiani” del 64 


IL COMMODORE 64 è certa 
mente il personal/home eompu- 
ter più versatile che oggi si possa 
trovare sul mercato. Nessun altro 
computer, nella stessa gamma di 
prezzi, è in grado di offrire lo 
stesso tipo di applicazioni ed una 
cosi vasta quantità di programmi 
software e periferiche. Con una 
scheda di memoria di 64K, il 
Commodore 64 può soddisfare 
qualsiasi richiesta per una vasta 
gamma di utenti, dalla piccola/- 
media azienda al più serio ed im¬ 
pegnato programmatore. 

Esternamente si presenta mol¬ 
to simile al Vic-20; il Microsoft 
Basic è la versione 2.0, identica a 
quello del Vic-20, e ciò ne fa 
l’evoluzione ideale per i possesso¬ 
ri del Vie. 

Gli acquirenti del 64, tuttavia, 
vogliono sapere quale software 
specifico è già disponibile per 
questa macchina. Computer Club 
fa il punto* 

Inizia a programmare con 
il Gortek 

Questo piacevole ed unico 
concetto di insegnare ai giovani 
come programmare abbina una 
storia d’avventura spaziale a le¬ 


zioni di programmazione in BA¬ 
SIC 

Il pianeta Syntax sta per esse¬ 
re invaso dal terribile Zitrous 
Gortek sta lavorando accanita- 
mente per insegnare ai micro¬ 
chips come programmare il gran¬ 
de computer per affrontare l’at¬ 
tacco nemico. Il libro a colori 
che illustra questa avventura in¬ 
clude il manuale di addestramen¬ 
to dei microchips che insegnerà 
anche ai bambini i primi rudi¬ 
menti della programmazione in 
BASIC 

Il libro che comprende undici 
belle illustrazioni, a vividi colori è 
accompagnato da due cassette che 
contengono giochi istruttivi e al¬ 
tri programmi. Oltre ad usare il 
programma offerto, andando 


avanti con il manuale d’istruzio¬ 
ne, si trovano programmi che il 
principiante deve imparare a tra¬ 
sferire sul computer. Alla fine 
della storia la grande “creatività 1 ' 
del computer è salvata dalla pro¬ 
grammazione che il tuo bambino 
ed i microchips hanno imparato 
da Gortek. I principianti vincitori 
si guadagnano il diritto di indos¬ 
sare Femblema di Gortek, che si 
trova nel pacchetto. 

Questo approccio innovatore 
per Pinsegnamento delFelabora¬ 
zione dei dati e la avventura spa¬ 
ziale è il frutto del lavoro di tre 
insegnanti inglesi. Hanno studia¬ 
to questo pacchetto apposita¬ 
mente per fanciulli da 10 ai 13 
anni anche se può essere racco¬ 
mandato anche ai più piccoli, 
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sempre con l’ausilio dei fintoli 
R arazzi più grandi e perfino 
adulti lo troveranno interessante 
e anche divertente...Si tratta del 
primo di una serie commercializ¬ 
zata in tutto il mondo esclusiva- 
mente dalla Commodore, 

II pacchetto comprende un li¬ 
bro di 44 pagine (38 a colori), 
due cassette con 12 programmi 
ed un emblema di Gortek, E’ di¬ 
sponibile per Vic-20, Commodo¬ 
re 64 e tutte la Serie 4000. 

Un'introduzione al Basic del 
prof* Andrew Colin 

Il popolare pacchetto per autodi¬ 
datti del Vie 20 è stato revisiona¬ 
to e migliorato dalla versione 
Vic-20. L’autore, il Prof. Andrew 
Coli, delTUmversità dì Strathcy- 
de, dice che ‘‘si tratta di un corso 
imperniato sulla programmazio¬ 
ne. Si riferisce al Commodore 64, 
ma una volta che te ne sei im¬ 
padronito sarai in grado di usare 
ie tue capacità su qualsiasi altro 
computer in BASIC, piccolo o 
grande che sia”. 

Il corso è diviso in quindici se¬ 
zioni nella prima parte ed in dieci 
nella seconda (ventìcinque sezio¬ 
ni in tutto). In media, per cia¬ 
scuna sezione dovrai passare una 
sera o due di lavoro. La maggio¬ 
ranza delle lezioni comprende un 
po’ di esercizio di lettura ed un 
questionario tipo “auto test”, 
per poter controllare quanto hai 
capito della lezione stessa. Sono 
compresi anche degli esperimen¬ 
ti. 

Quando si è finito il corso, 
Latente è in grado di usare il 64 


per molti e svariati modi. Ad 
esempio, potrà usarlo per tests o 
quiz, per giochi di propria inven¬ 
zione. 

I giochi o qualsiasi altra appli¬ 
cazione potranno includere dise¬ 
gni a colori e suoni per accentua¬ 
re quello che intendi, leggiadre 
note o rumori molesti. Ciascuna 
delle due parti nel corso com¬ 
prende due cassette per un totale 
di 3 4 programmi perii 
Commodore 64. Ci sono esempi 
di programmi, quiz, subroutine 
che si possono costruire come si 
vuole. 

Attualmente di questo corso è 
disponibile solo ìa prima parte 
(in inglese a lire 25 mila, più Iva). 
Presto le due parti saranno dispo- 
nìbiii in Italiano, 

Easy Script 

E’ uno dei più potenti word 
processor sul mercato, senza te¬ 
ma di confronto per quanto ri¬ 
guarda il prezzo. I vantaggi del 
word processing sono ben noti: 
nessun bisogno di ribattere finte¬ 
rò documento, possibilità di crea¬ 
re documenti da paragrafi stan¬ 
dard, facile creazione di lettere 
standard personalizzate, possibili¬ 
tà di vedere e di cambiare il do¬ 
cumento prima che venga stam¬ 
pato, risparmio di tempo, di spa¬ 
zio e di arrabbiature, e con V Easy 
Script sul 64 c’è anche un rispar¬ 
mio di soldi. 

L’Easy Script offre caratteri¬ 
stiche sofisticate quali: 

• potenti aiuti nel produrre tabel¬ 
le (definizione della larghezza del¬ 
lo schermo, tabulazione verticale 


ed orizzontale, tabulazione per l 
decimali); 

* controlli di stampa completi 
(margini variabili, lunghezza va¬ 
riabile della pagina, sottolineatu¬ 
re e evidenziazione); 

* possibilità dì facili aggior¬ 
namenti (posizionamento e sosti¬ 
tuzione automatica, trasferimen¬ 
to di parte del testo, di parole, di 
frasi, di paragrafi, inserimenti, 
cancellazioni, annullamenti e fu¬ 
sione di testi); 

* facile trattamento dei docu¬ 
menti, (collegamento a catena di 
piu file, fusione automatica di te¬ 
sto ed indirizzi per la spedizione* 
eco.). 

L’Easy Script viene fornito in 
cartuccia c questo significa che è 
pronto immediatamente per 
fuso. E’ completo di un manuale 
di facile interpretazione che com¬ 
prende una particolareggiata se¬ 
zione d’istruzione. Ci sono eserci¬ 
zi di una difficoltà graduata che 
permettono a tutti di apprendere 
fuso delFEasy Script, 

Attualmente ò disponibile so- 
1 o la versione inglese (Lire 
85.000, Iva esclusa). Quella ita¬ 
liana è iti preparazione. 

Altri package 

Gli altri pacchetti disponibili 
sono elencati di seguito. Tra pa¬ 
rentesi 11 prezzo senza Iva. 

* Linguaggio Forth 64 (95.000); 

* Stat* statistiche (Lit. 95.000); 

* DIÀRY, diario (Lit, 95.000); 

* Calcresult in versione sia italia¬ 

na che inglese espansa (Lit. 
35 0 .000) e semplificata (Lit. 
175.000). • 
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CERCHIAMO 
i600.000 PERSONE 
CHE CREDONO 
NELLA VITA. 

ANCHE OLTRE. 


16.000 persone vivono oggi in Italia solo grazie 
a una macchina perché i ioro reni non 
funzionano più. 

Sono gli emòdializzati che s per non morire, 
devono tagliar via dalla loro esistenza 
apparentemente normale almeno 20 ore 
settimanali per'attaccarsi al rene artificiale che 
depura il toro sangue, un giorno si e uno no t 
setti man a - per settimana, per tutta la vita. 

16.000 persone che oggi sopravvivono oltre le 
loro possibilità naturali E dietro di toro quasi 
4 000 insufficienti renali, ogni anno, devono 
trovare posto nei Centri Dialisi per potersi 
salvare, 

LAssociazione Nazionale Emòdializzati - ANED - 
da 10 anni affronta questa realtà drammatica 


per modificarla sostanzialmente lavorando a: 

* la prevenzione delle malattie renali 

* l'istituzione di nuovi posti dialisi 

* la riabilitazione sociale dei pazienti 

* rincremento del trapianto del rene. 

Ma per risolvere questi problemi occorre Taiuto 
anche delle persone sane. 

Cerchiamo almeno 1.600.000 italiani - cento 
per ogni e modi alizzato - che con il ioro 
contributo dichiarino concretamente di credere 
nella vita E aiutino decine di migliaia di altri 
uomini, donne e bambini che credono nella vita 
anche se vivono solo perché c'è una macchina: 
una macchina che li tiene attaccati alia vita, 
oltre Ja vita stessa. 



! ^tagliare e spedirà in buir:? cfirusa 

ANEO ■ P.za San Fede Se, 4 ■ r Milano 


I 


| Voglio contribuire a una vita oltre La vita e: 

□ invio la quota associativa come 

* socio onorario da L. 20.000 

* socio benemerito da L 100.000 

* paziente o suo tanni li are L. 10.000 

□ invio un contributo di L._ __ 




OLTRE 


□ metto a disposizione il mio tempo libero e la mia 
capacità professionale 





.-.W- JJ - 


.*5iv ir. 


ANED 

Àss Detezione 
Nazionale Emòdializzati 

Piazza San Fedele, 4 
20121 Milano 

tei. 02/805.79.27 


Cognome e nome________ 

Via____n. _ 



CAP __Città___ Prov 

□ con assegno allegato 

D con versamento sul ole postale n, 23395204 intestato 
a ANED - Milano 


Questo annuncio è 
ospitato su questa pagina 
grazie alia generosità 
dell'editore e del 
concessionario di 
pubblicità di questa testata. 
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Plottaggio 
in alta risoluzione 


é 

Un programma per tracciare grafici di funzioni in risoluzione 200 x 248 punti 


UNO degli aspetti più singolari i registri 36864 e 36865, Facen- quelli da 36864 a 36867). La se- 
dello schermo del Vie 20 è rap- do poi partire la mappa dei carat- conda sub routine p lotta un pun- 
presentato dal bordo che circon- teri da 7168, la mappa dei colori to la cui ascissa è data dalia loca- 
da il riquadro ove vengono visua- da 37188, le immagini dei caiat- zione 1 e la cui ordinata è data 
lizzati i caratteri. In questo riqua- teri da 5120 (cioè inserendo 253 dalla locazione 2. Per origine de- 
dro vi è spazio per 23 righe e 22 nel registro 36869), e utilizzando gli assi è stato assunto Pangolo in 
colonne, per una risoluzione di alcune veloci subroutine in Un- basso a sinistra. Infine con la ter- 
176 x 182 punti. guaggio macchina, è possibile za subroutine tutto ritorna come 

Il seguente programma con tracciare grafici di funzioni in ri- prima, L'immagine scompare e lo 
sente di dilatar e** lo schermo ve- soluzione 200 x 248 con risultati schermo può essere utilizzato 
ro e proprio fino a fargli occupare veramente apprezzabili. normalmente, 

tutto lo spazio utile del video te¬ 
levisivo. Ciò viene realizzato in Le subroutine sono m tutto li funzionamento della seco fi- 
due fasi: dapprima vengono rao* tre. La prima azzera i 2K da 5120 da subroutine si divide in due fa- 
dificati i registri che determinano a 7167, ossia [e immagini dei ca- sì: la prima consiste ne] calcolare, 
il numero di righe e di colonne, raiteri, pone a 255 tutti i byte in base alVascissa e all ordinata, 
che sono iì 36866 e i) 36867; della mappa caratteri e a 5 i byte in quale locazione della mappa 
successivamente viene corretta la della mappa colori. Infine mani- caratteri cade il punto da rappre- 
“centratura n dei riquadro usando pola tutti i registri suddetti (cioè tentare. Successivamente viene 
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vmaptocHi 
disponibili vane 


cassette videogame. 


PERFEBtCHE 


si possono coilegare 
direttamente{registratore 
dedicato, floppy* 
stampante, joystick. 




fp 

•5.V* 4 ,:. 


7 


ip mìe con 66 

256 

dazioni 

Mcoforì, 512 segni 
Cèiversi per creare 
■jj grafiti, disegni, 

™ : VidedgìochL 

-SOFTWARE 
una vasta gamma di 
programmi per tutte 
le necessità 

SUONO 
3 toni e 9 otta ve 
disponibili per creare 
le tue musiche ed 
effetti spedali. 


VIC 20 é // computer più diffuso nel mondo. 

un milione di esemplari venduti Perchè? 
I VIC 20 è facile da usare: io colleghì alfa TV e premi 
j tasti. Tutto qui. - 2, Ci puoi giocare: dagli scacchi agli 
invasori spaziali , e puoi inventarti i tuoi giochi, 
3> Lo usi perla scuoia, per risei vere problemi e 
compiti, - 4. Lo impieghi in casa, perla contabilità 
entrate-uscite, ma anche perle ricette e perii bioritmo,., 
5. Costà solo 423.000 lire più iva. - 6, Puoi imparare 
a programmare in Basic , la lingua del futuro. 


_ stato scelto come “computer deiranno" dalie 
migliori riviste intemazionali di informatica. 

3. E delia Commodore, fa N° 1 in Europa e in Italia 
net campo dei Personal Computer 
Perchè non farti un regalo intelligente? 


COMPUTER 
























Ostato 1 - START 

10 P0KE51. 21 ' P0KE52.« 19 : P0KE55.21 ' PQKE36, 19 : CLR 

30 OPENl, O0/ r HIRE ir 

40 FORKM8SST05U9 

50 INPUT#OR 

60 POKER,R 

70 HEXTK 

90 CL0SE1 


individuato il gruppo di 8 byte 
che fornisce rimmagine del carat¬ 
tere puntato da suddetta locazio¬ 
ne {facendo cioè 5120 + 8 x valo¬ 
re della locazione). Infine viene 
settato ifX bit corrispondente al 
punto da plottare. 

Come si è già detto le locazio¬ 
ni della mappa caratteri vengono 
inizia lizzate a 255; dò vuol dire 
clic se il programma trova che il pun 
to da plottare cade in una loca¬ 
zione contenente 255, questo va¬ 
lore verrà modificato in maniera 
tale che punti ad 8 byte non an¬ 
cora puntati da nessun altra loca¬ 
zione della mappa caratteri, À ta¬ 
le scopo il programma gestisce 
una variabile alla locazione 8191 ? 
che fornisce il valore da inserire 
n ella suddetta locazione della 
mappa caratteri e che viene incre¬ 
mentata di uno ogni volta. 

Dopo aver modificato il valo¬ 
re della locazione, il programma 
riprende da dove era stato inter¬ 
rotto. Si tratta di calcoli non 
semplici* la cui programmazione 
in Basic sarebbe stata più agevo¬ 
le, ma con tempi di esecuzione 
proibitivi. 

Sono in Basic i due program¬ 
mi* START e FUNZIONI, che 
hanno rispettivamente la funzio¬ 
ne di caricare le tre subroutine, e 
di tracciare funzioni utilizzando 
le tre subroutine. In questo ulti¬ 
mo programma la funzione da 
plottare viene definita alla linea 
20 . 

Il programma ci chiede se vo¬ 
gliamo modificarla e se rispondia¬ 
mo “S' ? viene listata la linea 20 e 
il programma si ferma. Altrimen¬ 
ti va avanti richiedendo gli estre¬ 


mi deO 1 ascissa e dell’ordinata, 
che indicano la porzione di piano 
cartesiano da rappresentare. Va 
introdotto prima Te stremo infe¬ 
riore, poi quello superiore separa¬ 
ti da una virgola Se presenti, 
vengono tracciati anche i due as¬ 
si. Se non compare nulla significa 
che il programma ha eseguito un 
calcolo impossibile, come divisio¬ 
ne per zero o radice di un nume¬ 
ro negativo eec, t o che la funzio¬ 
ne non si trova in quella parte di 
piano. 

Per far ripartire il programma 
basta premere la barra spaziatri¬ 
ce, Le tre subroutine, tranne La 
prima, sono completamente riio- 
cabili. Va comunque ricordato 
che le locazioni 1 e 2 non con¬ 
tengono piu, dopo che il punto è 
stato plottato, t due valori inizia¬ 
li. 

L'unico, vero inconveniente è 
che non tutto lo schermo può es¬ 
sere riempito: pur essendoci più 
di 700 caratteri visualizzabili, se 
ne vengono utilizzati più. di 255* 
si avrà Tamara sorpresa di vedere 
io schermo riempirsi di pallini o 
lineette in un indescrivibile caos» 
Ad ogni modo, questo inconve¬ 
niente non dovrebbe verificarsi in 
un programma dì plottaggio di 
funzioni monodie me, dove cioè 


ad ogni x corrisponde una e ima 
sola y, 

li programma "funzioni" 

Le prime linee di programma 
chiedono se si intende modificare 
la funzione da tracciare e provve¬ 
dono al suo Ostaggio se la rispo¬ 
sta è affermativa, 

Le linee 30 E 40 richiedono 
gli estremi sull Ascissa e subordi¬ 
nata e rìformulano la richiesta se 
non viene inserito prima l'estre¬ 
mo inferiore e poi quello superio¬ 
re» 

Nella linea 50 e 60 si pongono 
le seguenti costanti: SX = scala 
delle ascisse, SY - scala delle or¬ 
dinate e S = punto di partenza 
della seconda subroutìne. Nella 
linea 60 viene lanciata la prima 
subroutine in linguaggio macchi¬ 
na. 

La linea 70 dà inizio al ciclo 
FOR K/NEXTK che racchiude 
tutte le operazioni per il plottag¬ 
gio vero e proprio. 

Esso parte sfasato di un pun¬ 
to, dato che il programma unisce 
due punti con differenza dì ascis¬ 
se uguale a 1 attraverso il ciclo 
FOR J/NEXT J. 

Le linee 100 e 110 tracciano 
Tasse delle ascisse, mentre le li- 


20 j Computer Ctub 














Listato 2 - FUNZIONI 

5 P0KE36879,8 : PRINT 1 *Tir 
3 PRTNT ,p VUOI CAMBIARE IR fri nt ,t sfunz ione m ; 

10 IMPUTAIIFRSC<A$>~33THENLIST20 
20 DEFFNR(X>=SIN<X) 

30 FRI NT "ESTREMI DEL- U •PRINT 1 , 3«L / ASCISSA ,? j : INPUTA* B : IFB<=RTHENPRINT 0 TTrTT i ’>Q 

erose 

49 PR1KT ,I JB8TREHI DEL™ FI : PRINT |,1 15L / ORDÌ NATA "J : WUTfbN: IFN<^THENPRmT ,J Tm J1 ; *G0 
1040 

50 gv=;24?/(N-f1) : SX*(fr-R V199 ' S=4886 

60 PC*.5*P a >IHT<<FNft<fl>-M>*8V+PC>:Xa-l:U«i:B*2?SVS<5040> 

70 FORK*R+SXTOB+SXSTEPSX : X-X+U 
8 @ V^IHT<fFHR(K)-M>*SV+PC):F0RJs=FT0V8TEP80N(V-P^ 

85 IFP<WRP>247THEN95 
90 POKEIL X ’ POKED,- J - $V3< S ) 

35 P=V : NEXTJr K 

100 PsIHK-M# 8 V+PC)i IFP<0ORP>247THEN1Z0 
110 FORATOI3? ■ POKEU- K : POKED, F ■ SYS<S> : NEXT 
120 P*INTC-fiX3X+PC> : IFPC0ORP247THENÌ40 
130 FORK=0T0247■POKEU,P : POKED,K■SVSCS) : NEXT 
140 OETfì$ ■ IFF$O fi f, THEN140 
150 PRUfTT : SVS<5004) :RUN 


Listato 3 STAMPA 


2 OPENi t 4 

5 cnri 

7 BEFFNfì(X3 K X+48-(X>9}#7 
10 OOTO100 

30 PRIMI = PRIHT’ F COBI CI ESRBECIMALI 11 
40 FORK=RT0BSTEP3 
45 PR5NTK; 11 ,r ; 

56 F0RJ*Kt0K+4 
55 IFJ>BTHEN,T=K+5 GOTO30 
60 8=PEEK<J> : OOSUB1000 
70 PRI NTRf n "j 
80 NEXTJ : FRINT■MEXTK 
90 RETURN 

100 PRINT”PRIMA SUBROUTINE' 1 
116 8=5040 :B=51Ì9-GOSUB30 : GQSUB2008 
120 PRINI:FRINÌ”SECONDA SUBROUT1NE 1 * 

130 R=4985:B=5O03:OOSUB30‘GOSUB2000 

140 PRINT ■ PRINT ' 1 TERZA SUBROUTINE lp 

150 8*5004 ^ 3=5039 :GGSUB38■OOSUB2000■END 

1000 T»INT<S/16) : R*®-T*16 

1010 M=CHR$<FNR<T))+CHR*<FNfl<R)>'RETURN 

2000 FRINT:FRINT^CODICI DECIMALI" 

2010 FORK«RTOB:PRINTPEEK<K>.:NEXT : PRINT: RETURN 


nee 120 e 130 tracciano quello 
delle ordinate. 

Le ultime linee del program¬ 
ma creano un ciclo di attesa che 
si interrompe quando è premuta 
la barra spaziatrice* 

Il programma può essere fer¬ 
mato semplicemente premendo il 
tasto di SHIFT destro e RUN 
STOP se il calcolatore è in attesa 
di dati (ossia sta eseguendo 
un’istruzione di INPUT), oppure 
RUN STOP e RESTORE se il cal¬ 
colatore sta tracciando una fun¬ 
zione. 

Una cosa da ricordare è che il 
programma START ridimensiona 
la memoria disponibile per pro¬ 
gramma e variabili a un solo 
Kbyte e che occorre spegnere II 
calcolatore per ritornare ad avere 
i 3,5 Kbyte della versione base. « 
Paolo Savi 

Via Kennedy, 18 20097 £ Donato (MÓ 
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PET 


Gestione veloce delle cassette 


E' NOTO che la ricerca veloce ed 
il caricamento in memoria di pro¬ 
grammi registrati (in successione) 
su nastro magnetico per un loro 
eventuale aggiornamento e rein- 
serimento non è possibile, salvo 
laboriose procedure e perdite di 
tempo. Le due brevi routine che 
proponi amo risolvono questo 
problema. 

La prima routine va registrata 
airinizio di ogni cassetta denomi¬ 
nandola Tempo richiesto': la se¬ 
conda va collocata all 1 inizio di 
ogni programma e serve per regi¬ 
strare nuovamente il programma 
eventualmente corretto., In più 
concorre a posizionare il nastro' 
per La richiesta o la registrazione 
di nuovi programmi, nella stessa 
o in altre cassette, variando sem¬ 
plicemente il tempo HHMMSSL 

J listati delle routine sono illu¬ 
strati nel riquadro, dove RET - 
RETURN. 

1 programmi da registrare ven¬ 
gono posizionati sul nastro in ba¬ 
se al tempo prestabilito e che si 
legge nella riga 59, come spie¬ 
ghiamo in seguito. 


Uso della routine 

Ogni programma registrato ha 
un nome. All’est erno della casset¬ 
ta, oltre ai nomi dei programmi, 
occorre annotare anche il tempo 
di posizionamento di detto pro¬ 
gramma, ad esempio : 

LO AD Tempo richiesto' 000000 
LOÀD ‘settimana ’ 000009 
LOAD ‘mese ’ 000022 


LO AD "anno ’ 000103. 

All'accensione della macchina 
ed introdotta la cassetta, si pre¬ 
mono i tasti SHIFT-RUNf indi il 
tasto play del registratore. Verrà 
visualizzata la routine Tempo ri¬ 
chiesto \ À questa domanda, do- 
p o aver riawolto il nastro 
(REW) si batte il tempo del pro¬ 
gramma che si vuole richiamare, 
pari a quello precedentemente 
annotato sulla cassetta indi i tasti 
(RET.-F,FWD). Il nastro verrà 
posizionato all’altezza del pro¬ 
gramma desiderato. Ora basta 
battere NEW SHIFT-CLR indi i 
tasti SHIFT-RUN/PLAY ed il 
programma richiesto sarà carica- 


I. 0 F K »• ?! 9 T :■ U P G l*?J P Es-s&lj P R JM T / 8 ' 

:l 1 mXm'R7M*-~REW-r RATTI IL. TEMPO RICHIESTO 
12 X E J T y 1 L10I P e F * - F * F 14 D ' l -W \ i T 7 $ « * 0 (10 0 0 I J 
1. A IF MAL. ( TT$ > <V ■ d.. H4M THEN té 

1 e P0KFP 0 <• 32 : P0KE Pi't > Pe: 1 PI U T * TIT hp 0 RXCHIEST0 ' 

2 0 PR : Ti 5 T ' 0 F - !3 Fi T TI -N LT h - IN 0I < 8 HIF - E LI N i ' J £ T 0 ?> 


to nella memoria del PET. 

Se si deve modificare questo 
programma e quindi memorizzarlo 
di nuovo, basterà riawoigere il 
nastro col tasto REW, battere 
l RUW 4' sulla tastiera e poi pre¬ 
mere 'RET.-F.FWD* Il nastro vie¬ 
ne posizionato ai punto giusto 
per registrarvi con la solita 4 SÀ- 
VE' il programma teste modifica- 
to. 

Se si desidera richiamare un 
altro programma, dopo aver sem¬ 
pre riawo ito il nastro, occorre 
dapprima modificare il valore as- 
segnato alla variabile TIS- 
= 4 Q00GXY* della riga 5, assegnan¬ 
dole il valore corrispondente al 
programma che vogliamo richia¬ 
mare e che troviamo nella tabelli¬ 
na a suo tempo compilata. 

Si dovrà battere quindi ‘RUN 
4’ indi RET.-F.FWD, il nastro 
verrà posizionato alTaltezza del 
programma desiderato. À questo 
punto si batte (NEW SHIFT- 

CLR) indi SHIFT-RUN - PLAY 
ed il programma verrà visualizza¬ 
to sul monitor. ■ 

Marino Zambotti 

Via Stelline, 9 20146 Milano 



2 FIF 2 0 

■ TU; ' OOOOOO ' % PRTNTTXS 

5 IL" TX* = * i ) 0 () 0 8 0 ' THEHPDEE249,52 S P0KE594U *61 t PRIMI TI * 5 87QF 

6 CETO 3 

20 1 , v *, tpp mpfimhy 
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Commodore è vicina. 

Napoli Parco S. Paolo 


Commodore aggiunge 
un nuovo punto vendita 
e assistenza ai quasi 500 già 
operanti in Italia: 

CM Computermarket, 
Napoli Parco S. Paolo, Is.9 
Tel. 081/76.72.222. 

Qui trovi gente che la sa 


lunga sui computer e sulle 
qualità dei vari computer; 
professionisti che ti propon¬ 
gono sistemi con il miglior 
rapporto prezzo-prestazioni 



COMPUTERMARKET 


e una vasta gamma 
di soluzioni: gamma alla 
quale nessun produttore 
di “personal” si puS oggi 
avvicinare. Anche per i 
questo Commodore è prima 
in Italia. E in Europa. 

Ti aspettiamo. 


ETHOS PISA 




6. poke, peek e il colore 


Codici carattere 

Come avete già visto all* inizio di queste lezioni, 
nel computer i caratteri e i numeri vengono memo¬ 
rizzati sotto forma di configurazioni binarie, 1 codi¬ 
ci binari standard sono stati fissati da diverse orga¬ 
nizzazioni internazionali, ma quelli più largamente 
adottati sono i codici definiti dalla American Stan¬ 
dard Code for Information Interchange (ASCII) 
che riporteremo in appendice cosi come risultano 
implementati sul VIC. i caratteri possono essere 
convertiti in questi codici e viceversa con la funzio¬ 
ne strìnga ASC e CHR$, descritte qui di seguito. 

• La funzione CHR$< 

Questa funzione dà il carattere corrispondente 

ad uno specifico codice ASCII, cioè: 

_ , __ _ 

10 LET A$ ^ CHR$(66) _ 

II codice ASCII per la lettera B è 66 quindi 
['istruzione memorizza B inÀ$, Le parole vengono 
formate mediante concatenazione, vale a dire che 

_ 10 LET A$ - CHR$(66)+ CHR$(69) 

dà per risultato AS - BE, dove 69 è il codice ASCII 
corrispondente alla lettera E + 

Notate che poiché la funzione CHR$ dà il codi¬ 
ce ASCII, ^ variabili possono essere usate, se neces¬ 
sario, per diversi caratteri di controllo (per eserm 
pio, il RETURN). 

* La funzione ASC 

E* l'opposto della funzione CHRS, in quanto 
fornisce il numero di codice ASCII per un dato 
carattere. Ad esempio 

10 LET X - ASC(“E”) 

dà come risultato X - 69. 


Se F argomento è una variabile stringa, viene for¬ 
nito il codice ASCII del primo carattere, vale a dire 
che, ad esempio, 

5 LET T$ = “TOTAL” 

10 LET X = ÀSC(TS) 

danno per risultato X = 84* 

* LEM : 

La funzione LEN fornisce la lunghezza di una 
stringa. Cambiando, ad esempio, la linea 10 in mo¬ 
do da avere 

_10 LET L = LENITI) _ 

si avrebbe come risultato L - 5* 

* Le funzioni L£FT$ e RJGHTS 

Le due funzioni individuano il numero speci¬ 
ficato di caratteri più a sinistra o più a destra di 
una data stringa. Cosi, ad esempio, 

10 LET B$ = LEFT$(T$,2) 

fornisce i due caratteri più a sinistra della stringa 
T$, cioè B$-TO,e 

_ 10 LEI E$ ^ RIGHT$(TÌ,3) 

dà per risultato E$ = TAL. 

* La funzione MiD$ 

La funzione MID$ calcola una sottostringa di 
un carattere a partire dalFiesimo carattere, cosicché 
ad esempio, 

_ 10 LET C$ = MID$(T$,2,3) _ 

dà per risultato CS - OTA dove n = 3 e i *= 2. 

* La funzione STR$ 

La funzione STRS converte un argomento nu¬ 
merico in una stringa equivalente della sua forma, 
stampata, 
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10 LET N - 20 

_ 20 LET XS « 3TR$(N) _ 

ad esempio, dà per risultato XS contenente “20” 
come stringa, perciò 

30 LET Y$ - “VIC” + X$ 

40 PRINT Y$ 

dà come risultato la stampa delPesjjfessione 

VIC 20 __ 

Ricordate che la versione alfanumerica del valo¬ 
re numerico contiene uno spazio iniziale (il segno + 
che viene eliminato), 

* La funzione VAL 

La funzione VAL costituisce fesatto contrario 
della funzione STR$: essa infatti esamina la stringa 
da sinistra verso destra fornendo il primo formato 
numerico riconoscibile. Ne consegue che 

X-VÀLTVIC 20”) dà per risultato 

X = 20 _ 

e 

X=VÀLPV78 + 97,Ó5”Ì dà per risultato 
_ -78.97 _ 

POKE E PEEK 

II comando POKE permette di porre qualsiasi valo¬ 
re specificato direttamente in una data locazione di 

memoria. La sua forma generale è la seguente: _ 

__ POKE x,y 

dove il valore di x specifica la locazione di memoria 
e y il valore che deve essere elaborato dal comando 

POKE. __ 

__ POKE 36879,93 __ 

ad esempio, pone il valore 93 nella locazione di 
memoria 36879, che in questo caso determina il 
colore dello schermo, per cui il valore 93 fà in 
modo che io schermo diventi completamente ver¬ 
de, 

Per quanto riguarda il VIC, Fuso più comune 
del comando POKE è quello di controllo del colo¬ 
re, del suono e della posizione dei caratteri sullo 
schermo. Alcune tecniche di programmazione spe¬ 


ciali permettono di utilizzare i comandi PEEK e 
POKE per eseguire operazioni dirette ad una spe¬ 
ciale area della memoria del computer, nota come 
pagina zero, per poter ottenere effetti speciali non 
realizzabili con il BASIC. Benché l’uso dei due co¬ 
mandi non possa in alcun modo danneggiare il vo¬ 
stro VIC, prima di cimentarvi con le soluzioni più 
sofisticate, fate in modo di acquisire una buona 
pratica nelle applicazioni più semplici. 

Se in qualsiasi momento il VIC sembra smettere 
di funzionare correttamente, ad esempio scompare 
il cursore, premete contemporaneamente i tasti 
STOP e RESTORE in modo da riportare il VIC al 
punto di partenza senza perdere Ì1 programma* 

La funzione PEEK permette Faccesso al conte¬ 
nuto di una specifica locazione di memoria, quindi 
PEEK (x) dà il valore del contenuto della locazione 
x, che può essere assegnata come variabile nel soli- 

to modo, cioè _____ 

10 LET S - PEEK(36879) 

_ 20 PRINT S _ 

Eseguendo questo programma subito dopo Taccen- 
sione del VIC, S dovrebbe avere il valore 27* 

La funzione PEEK può essere usata nei giochi e 
nelle animazioni per determinare lo stato delle va¬ 
rie parti dello schermo, per esempio, per sapere se 
un missile occupa al momento la posizione corri¬ 
spondente alfobiettivo, il chè significa un punto a 
favore del giocatore* 

Sia PEEK che POKE accettano la variabili quin¬ 
di tutti gli esempi che seguono sono sintatticamen¬ 
te validi: 

POKE X,Z 
POKE X + L*22,Z 
PEEK (X + L|*22) 

_ IF A$ = CHR$(PEEK(K)> THEN Y 

II controllo del colore del VIC 

i 

Il sistema di colore del VIC permette il control¬ 
lo indipendente del colore dello schermo, della sua 
cornice e da tutti 1 caratteri destinati ad essere vi¬ 
sualizzati. 

Li cornice può essere di otto colori diversi, lo 
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schermo di 16 5 tutti impostabili con un solo co¬ 
mando POKE diretto alla locazione 36879, il cui 
valore determina la combinazione di colore scher- 
mo/cornìce. In appendice riporteremo i valori di 
tutte le combinazioni possibili. La combinazione 

aU’accensione, ad esempio, è blu con schermo biam 

* 

co ottenibile anche tutte le volte che si effettua un 
ripristino con il comando 


POKE 36879,27 _ 


Il programma nella tabella 6.1 permette di otte¬ 
nere una dimostrazione di tutte le combinazioni 
comice/schermo possibili. Ricordate comunque 
che quando i caratteri sono dello stesso colore del* 

10 schermo, non sono più leggibili e apparentemen¬ 
te scompaiono II programma è costituito da due 
loop: quello esterno {dalla linea 10 alla linea 60) 
imposta S su valori di schermo successivi associati 
ad una cornice nera e da qui al primo ingresso di 
ciascuna linea dell’appendice; quello interno (dalla 
linea 20 alla linea 50) invece determina la posizione 
di colonna e quindi S + B rappresenta il valore da 
elaborare con il comandò POKE. 

La linea 40 è un ritardante che consente di os¬ 
servare ciascuna combinazione di colori. 

La modifica e la regolazione del colore possono 
essere effettuate in diversi modi, come vedremo in 
seguito. 

11 controllo del colore dei caratteri 

11 colore dei caratteri può essere programmato 
mediante tasti specifici, attribuendo delle variabili 
a particolari codici di carattere o utilizzando il co- 
mando POKE. 

Il colore dei caratteri visualizzati a partire dalla 
posizione corrente del cursore può essere sele¬ 
zionato battendo il tasto CTRL contempora¬ 
neamente ad uno dei tasti che contrassegnano il 
colore. La stessa sequenza può essere chiusa fra 
virgolette in un’istruzione PRINT, cioè nel modo 
seguente: 

10 PRINT “CTRL e il tasto Rosso THIS PRINTS 
RED” 

Come alternativa, è possibile assegnare alla sequen- 


10 F0R S-8 TQ 248 STEP 16 
20 POR B*0 10 ? 

30 POKE 36979,S+B 

40 F0R D-l IO 1000: NEXT D 

50 NEXT B 

60 NEXT S 

70 END 

80 ; 

90 : 

Tabella 6.1. Programma per la riproduzione dì più combinazioni 
di colori par cornice e schermo. 


za una variabile stringa da incorporare in un’istru¬ 
zione PRINT, come nelle istruzioni 


10 C$ - “CTRL e il tasto Rosso” 

20 PRINT C$: “THIS PR1NTS RED” 


Un terzo modo per ottenere la stampa di caratteri 
in un certo colore predefinito consiste nell’utiliz- 
zare l’apposito codice di carattere, il cui elenco è 
riportato in appendice. Il programma nella tabella 
6.2 offre un esempio di questo metodo in cui i 
codici di carattere vengono letti da una serie di 
istruzioni DATA. Il metodo di modifica del colore 
caratteri è particolarmente utile nella stampa dei 

'Ir 

titoli e delle intestazioni. 

Se usata con i tasti RVS ON e RVS OFF anche 
la barra spaziatrice permette di ottenere delle barre 
di diverso colore. Infatti, ogni volta che viene usato 
ii tasto RVS ON per l’attivazione del set di caratte¬ 
ri in negativo, lo spazio si trasforma in un blocco 


10 FOR L-l TO 8 
20 READ C,C$ 

30 PRINT CHRKO; 11 QUESTO E' ";C* 

40 NEXT L 

100 DATA 144,NERO 

110 DATA 5,BIANCO 

120 DATA 28,ROSSO 

130 DATA 159,A2ZURRQ 

140 DATA 156,‘VIOLA 

150 DATA 38,VERDE 

160 DATR 31,BLU 

170 DATR 158,GIALLO 

180 END 

190 : 

200 : 

Tabella 6.2 Stampa di stringhe in più colori 
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intero del colore che in quel momento risulta sele¬ 
zionato, Oltre che essere eseguita da tastiera, anche 
in questo caso la sequenza può essere programma¬ 
ta, come nell’esempio seguente: 

10 PRINT “CTRL e RVS ON e CTRL e tasto Ros¬ 
so ” 

dove l’istruzione permette di ottenere una barra 
rossa lunga cinque spazi Notate che entrambi i co¬ 
mandi RVS ON e RVS OFF hanno dei codici di 
carattere (per la precisione 18 il primo e 146 il 
secondo) utilizzabili nei programmi nello stesso 
modo in cui vengono usati i codici per i colori. 
Quindi il precedente esempio potrebbe risultare co¬ 
si: 

10 PRINT CHR$(!S);CHR$(28); 

11 quarto metodo possibile per ottenere caratteri 
colorati è quello di usare il comando PQKE descrit¬ 
to nel prossimo paragrafo. 

Colorare i caratteri con il comando POKE 

Lo schermo del video è mappato in memoria. In 
altre parole, ogni possibile posizione di carattere 
dello schermo ha una propria relativa locazione di 
memoria. Nel VIC, nella sua configurazione base, la 
posizione dell’angolo in alto a sinistra, ad esempio, 
corrisponde alla locazione di memoria 7680 e, 
usando il comando POKE a questo indirizzo con 
un particolare valore, è possibile ottenere la com¬ 
parsa di un certo carattere di colore bianco (e in 
questo caso sarà opportuno che per io schermo sia 
stato selezionato un colore contrastante). Vi ricor¬ 
diamo, a questo proposito, che i codici di schermo 
di tutti i tasti, che verranno riportati in appendice, 
non corrispondono ai codici di carattere e sono rile¬ 
vanti solo per Fuso del comando POKE di visualiz¬ 
zazione. Quindi, 

PQKE 7680,83 _ : _ 

produce un piccolo cuore in corrispondenza della 
posizione di riposo del cursore. Se ora aggiungete 
128 al codice, otterrete lo stesso carattere visualiz¬ 
zato in negativo, 

Per ciascuna locazione di memoria dello schei 
mo esiste una corrispondente locazione di memoria 


del codice colore; perciò 38400 è la locazione di 
colore corrispondente alla posizione di schermo 
7680, Ricordate che è importante che vi accertiate 
che esista fesatta corrispondenza tra locazione di 
colore e locazione di memoria dello schermo. 

Il colore del carattere depositato in una data 
locazione può essere modificato inserendo un valo¬ 
re pari al numero indicato su ciascun tasto di colo¬ 
re meno l, ad esempio 2 per il colore rosso. In 
questo modo 

POKE 7680.83 : POKE 38400,2 

consente di collocare un cuore rosso nella posizio¬ 
ne di riposo del cursore. 

■S. 

Anche le locazioni di memoria dello schermo 
assieme alle relative locazioni di colore saranno ri¬ 
portate in appendice e valgono per il VIC nella 
sua configurazione base. Se a quest'ultima si ag¬ 
giungono altri 3K, tutte le locazioni subiscono un 
cambiamento. Per questa ragione, durante la stesu¬ 
ra programmi che implicano Fuso dei comandi 
PEEK e POKE in funzione delia visualizzazione sul¬ 
lo schermo, è consigliabile usare espressioni che 
siano in relazione con la posizione di riposo del 
cursore e con le combinazioni e i valori richiesti. 

L'espressione, inoltre, può usare la riga e la co¬ 
lonna richieste per calcolare ia locazione di memo¬ 
ria come nell’esempio seguente: 

100 SM-7630: CM-38400 
110 F0KE SM+22*R+C. 83 
120 POKE CM+22*R+C, 2 
130 ? 

146 = _ 

Se avete un VIC con più di 3K di espansione RAM, 
avrete bisogno di porre SM a 4096 e CM a 37888. 

La routine riportata qui sopra posiziona un cuo¬ 
re rosso sulla riga R della colonna G. Se la memoria 
dello schermo e le locazioni di colore cambiano, 
sarà sufficiente modificare solo la linea 100. 

La tabella 6.3 offre un esempio di programma 
molto semplice che chiarisce l'uso del comando 
PQKE, che in questo caso inserisce una serie di 
cuori dì diverso colore quasi al centro dello scher¬ 
mo. 

La posizione di partenza è rappresentata dalla 
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riga 11 (linea 110), segue quindi un loop (dalla 
linea 120 alla linea 150) che stampa un cuore, ogni 
volta di un colore diverso, nelle colonne C + I (dal¬ 
la colonna 6 alla colonna 13 comprese). 11 program¬ 
ma fa inoltre uso di un contatore dì loop (I) che 
permette di fissare il colore 1-1 nella linea 140. 

Un esempio di istogramma 

Il programma riportato nella tabella 6.4 dimo¬ 
stra come è possibile usare i colori per produrre un 
istogramma. La routine produce la traccia su video 
di dieci linee verticali di colore rosse in una scala da 
0 a 10. 

La linea 10 azzera lo schermo' la 20 stampa 
F intestazione principale; le linee dalla numero 30 
alla numero 60 costituiscono un loop che crea la 
scala verticale. Il trattamento delle stringhe ottenu¬ 
to con queste linee determina il corretto allinea- 1 
mento dei numeri ottenuti con il conteggio del 
loop, il carattere grafico della linea 50 rappresenta 
una parte detrasse verticale in scala, mentre la linea 
70 determina l’asse orizzontale. 

In questo esempio, i dati sono contenuti in una 
linea DATA (160) e vengono letti ogni volta che è 
necessario per ciascuna colonna della linea 90 nella 
variabile D. 

L’istogramma viene prodotto inserendo con il 
comando POKE dei caratteri negativi di colore ros¬ 
so verticalmente sulle dieci colonne previste. 

Le linee dalla numero SO alla numero 150 costi¬ 
tuiscono un loop esterno che ripete il loop interno 

90 PRINT"T : REM CANCELLAZIONE SCHERMO 1 
100 Slt*:7680: CM=3S400 = REM VIC NON ESPANSI 

105 REM SOSTITUIRE SM=4096: CM~378S8 NEL 

106 REM CASO DI VIC DOTATI 

107 REM DI ESPANSIONI DI MEMORIA 

110 R*li! C=6 1 

120 F0R 1*1 TO 8 

130 POKE SM+22*R+C+I > 83 

140 POKE CM+22*R+C+I > 1-1 

150 NEXT I 

160 END 

170 : 

180 = 

■ Tabella 6.3 Inserimento dì cuori colorati con il comando PQKÈ 



10 PRINT"T : REM CANCELLAZIONE SCHERMO 
20 PRINT"******IST0GRRMMI*****" 

25 PRINT 

30 F0R L=10 T0 1 STEP -1 
40 LSS*" "+STR$(L> 

50 PRINT RIGHT$(LS$;4)J"T : REM TRST0 SHIFT + P 
60 HEXT L [ 

70 PRINT" 0TTTTTTn~nT 
80 F0R P=1 T0 10 

90 RERD D I 

100 IF D=0 THEN 150 

110 F0R H=1 T0 D I 

120 POKE 797®-<H*22)+Pj 160:REM VIC NON ESPANSI 

130 POKE 3S690-(H#22>+P» 2 : REM VIC NON ESPANSI 

131 REM SOSTITUIRE POKE 4386-<H*22)+P J 160 

135 REM POKE 38178-(H*22HP J 2 

136 REM NEL CASO DI VIC D0TRTI 

137 REM DI ESPANSIONI DI MEMORIA 
140 NEXT H 
150 NEXT P 

160 DATA 5,7,8,3,5,2,£,0,1,6 
170 END 
180 : 

190 : 

Tabella 6.4 Routine per la realizzazione dì un istogramma 


per ciascuna colonna. Se Cistogramma ha un ingres¬ 
so zero, il loop intèrno viene superato senza essere 
eseguito per effetto della linea 100. 

Il loop interno (dalla linea 10 alla linea 140) 
inserisce un carattere spazio negativo (32+128 = 
160) verticalmente D volte. 

Ani mozioni 

La formazione delle barre ne Cistogramma del- 
Tesempio. precedente rappresenta un tipo molto 
semplice di animazione. Per poter avere però forme 
più elaborate come quelle usate, ad esempio, nei 

i 

giochi, è innanzitutto indispensabile poter avere 
movimenti in su e in giù su tutta la superficie delio 
schermo. 

Per poter avere Fìllusione del movimento, oc¬ 
corre spostare un certo carattere da una locazione 
dello schermo ad un’altra opportunamente ravvici¬ 
nata e sostituire la locazione precedentemente oc¬ 
cupata con un carattere spazio. Tutto ciò può esse¬ 
re fatto con il comando POKE. 
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Il programma nella tabella 6.5 rappresenta un 
facile esempio di animazione in cui un asterisco 
viene spostato lungo tutto lo schermo in senso oriz¬ 
zontale da sinistra verso destra lungo la riga 8 (no¬ 
tate che la linea in alto è identificata come linea 
zero). Le linee dalla numero 10 ulla numero 30 
fissano la visualizzazione iniziale e le locaaioni di 
colore alla prima posizione della riga 8. Il loop (dal¬ 
la linea 40 alla linea 90) sposta ii carattere richiesto 
su ciascuna colonna di quella riga colorandolo di 
rosso (linea 60). La linea 70, alfinterno del loop, 
inserisce uno spazio nella colonna precedente, men- 
tre il loop ritardante nella linea 80 impedisce al¬ 
l’asterisco di spostarsi troppo rapidamente. La linea 
100, infine, inserisce uno spazio nella posizione fi¬ 
nale dell’asterisco all'uscita dal loop. 

Problema 

Usando i caratteri grafici, disegnate sullo scher- 


5 FRINT"3" '< REM CANCELLAZIONE 

13 SM = 7680: CM = 38400 

20 S = SM+22S8 

30 C s CM+22#8 

40 F0R 1=0 T0 21 

50 P0KE S+I/ 42 

60 P0KE C+L 2 

70 F0KE'S+I-l, 32 

80 F0R D=1 T0 100 : NEXT D 

90 NEXT I 

100 P0KE S+21; 32 

110 END 

120 : 

130 : 

Tabella 6.5 Esempio di semplice animazione 


mo un semplice viso stilizzato ed introducete farsi- 
inazione in modo che il viso appaia alternativa¬ 
mente imbronciato e sorridente. 

Un esempio della routine che vi serve in questo 
caso è riportato nella tabella À9. * 
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PET 


Come recuperare i file persi 


Questo programma pennette di recuperare i file persi accidentalmente sui dischetti da 5 JJ 1/4. E T 
adatto per i vari drive (8050, 4040\ 3040) e computer della Commodore (serie 2001, 3Q0Q t 4000 
e 8000) ed è adattabile al Vie. 


11^ COMANDO SCRÀTCH (nelle 
tre versioni: come comando di¬ 
retto nel Basic 4.0 o attraverso il 
canale comandi 15 o col coman¬ 
do diretto >$ del Dos Support) 
non cancella fisicamente sul di¬ 
schetto il file a cui viene applica¬ 
to, ma agisce solo sulla directory 
a sulla BÀM, rendendo libero a 
successive scritture i blocchi che 
0 file occupava. 

La directory è Telenco dei file 
presenti sui dischetto, ed occupa 
quasi tutti i settori della traccia 
39 per il drive (unità a dischi) 
8050 (traccia 18 per il 4040 e 
simili). Ogni settore contiene i 
puntatori (traccia, settore) al 
prossimo settore della Directory 
(0,0 se è Tultimo) e la descrizio- 
ne di otto file (entrata). Ogni en¬ 
trata assume rispetto di fig. 1, 

La BAM (Block Available 
Map = mappa dei blocchi dispo¬ 
nibili), è contenuta nei settori 0 e 
3 della traccia 38 per F8Q5Q (set¬ 
tore 0, traccia 18 per il 4040) e 
d dice quali settori sono disponi¬ 
bili e quali no, attraverso una 
mappa di 4 byte per ogni traccia. 

Il comando SCRÀTCH altera, 


Formato della directory 

(traccia 18, settore 1 per 3040, 4040) 

(traccia 39, settore 1 per 8050) ' 

Byte 

Contenuto 

0,1 

Traccia, settore del prossimo blocco della directory 

2-31 

Entrata del file ! 

34-63 

Entrata del file 2 

66-95 

Entrata del file 3 

98-127 

Entrata del file 4 

130-159 

Entrata del file 5 

162-191 

Entrata del file 6 

194-223 

Entrata del file 7 

226-255 

Entrata del file 8 

Struttura dì 

una singola entrata 

Byte 

Contenuto 

0 

128+tipo ‘OR' del tipo con £80 per indicare un file chiuso 
correttamente tipo 0: cancellato 


1: sequenziale 

2: programma » 

3: user (utente) 


4: relativo 

1,2 

Traccia, settore dei primo blocco di dati 

3-18 

Nome del file completato da spazi in shift 

19,20 

Solo per i file relativi: traccia,settore 

21 

Dimensione record ! 

22-2S 

Non usati 

26,27 

TÌL,Set. quando si sostituisce un file È 

28,29 

Numero di blocchi nel file parte bassa, parte alta 


Fifl. 1 j struttura della directory e di un'entrata di file. 
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RECUPERO FIUE 

100 PRIMI" J, aÉ *}<RECUPERO FILE HSf" 

110 REM EDOARDO PftTRUCCO 1982 
120 REM MICRO & PERSONAL COMPUTER 

140 DIMEE$<32> ,TF*C5J sX$="" :R$= ,,jr 
150 FQRI-0TO5 sRERDTFf<I>sHEKT sCC-O 
160 K=8 sCH=9 iS=l :TR“39 sT-TR !DR$- J, 0" 

170 IH#= ,, 5JTIPO NOME FILE TR- SET„ LUNG. ” 

1S0 FRI NT" 1 RECUPERO FILE CANCELLAT 03P' 

19© FRI NT "2 RECUPERO DI TUTTI I FILE CANCELLATI S" 

200 FRI NT "3 dONVALIDRa 11 

210 FRINT"4 VISUALIZZAZIONE DIRECTORY AMPLIATA^" 

220 FRI NT "5 CANCELLAZIONE FI LESSI" aPRIHT"6 FIHEffl 11 
230 PRINT"<SPACE> PER TORNARE AL MENU SS** 

240 FRI NT "31 : REGI,- 2 :RECT ;3 sCONV/4 ;DI R ;5 »CANC;6 sENOB" > 

250 GETR*sIFR*^ IJ,, THEN250 

260 IFR$<" 1 “GRR$> fJ 6“THEM250 

270 R=VAL<R*>sPRINfR*;RT=0 

280 ONRGOTO450^960 r 1800^1500^1800^2080 

2 9 0 E N O s R E f'1 — s—“ —- ss ~—s si s ~ s — s ”—s. s s s s s s 

235 REM ===== LEGGE STAMPA DIRECTGRV = 

23S REM ============================== 

300 TT—ASC<FE$<1>>:S8=ASCCFE^<2>> 

310 FT=ASC < FES < 0 > > AND127 

320 IFFT>5THENPRINT N TIPD ERRATO"sFT=5 

330 TF$“TF*<FT> 

340 LF”flSC<;FE$<2S> > + 25S*fìSC<FE* <29 > > 

358 TT#<=RIGHT$< 11 ll +STR$<TT^3> 

360 SS*“EIGHT$< ,l ,J +STR£ CSSO 

370 LF$"RIGHT$< 11 ,, +STR$<LF > ,5) 

380 PRINT^ff'TF*"* “NF* ;TAB< 20 > ; 

330 lFSPTHENPRINT#4 r ti a ii TF^ ,l B "HF*; 

400 PRJNTTT$;SS$;LF$ 

410 IFSPTHENFRINT#4,TT*;SS*;LF* 

420 RETURN 

450 FRI NT "RICERCA DI UN CERTO FILE" 

455 REM S!=SKS!=sss=:==a=!!£=====:==-====-==: 

460 GOSUB750 

47© PRINT“HOME 'PEL FILE DA RECUPERARE 11 
430 INFUTWQ*3L~LEH<NQ*> sFORK^ITOL 
490 IFriIB^<NG*,K,l >- ,, * ,, THENL“K-l :K=S0 
500 NEXTKsIFK<80THEHL-16 
510 NG*=LEFT*<Ma*+" 

520 FRI NT 11 STO CERCANDO a"NO* 

C? CII_ F* J". Kf -» —A*. r-A-r FI i —fi» b*ti hr&- w-r si—i pi—I trm-* H"** xiu mj, KB i^b kb a- .11. m » Ha bk 

- - - — 3C_ — 

530 REM s*=R 1 CERCA FILE NELLA DIRECT. == 

5 0 L r ~ J 1 MB ■■-■ iBBB bd bbu bt bb bbi >bi <»ir swn bsb n m-r rwrr bt -rrr- ■—n -s—- ssr *— **- s-r- --Hi— ***** -***t ——A -BJ_ l_l_ —fri. -A-AJ 

O* O ^ | | -H-fc- «M W4r 4ÉH Mti -Wm 1 - Hééé* - Wit *♦**■ "■ “■ 

540 T=TR jGPEfll ,8, 15 ;RRlNT#l , 11 1 "+DR* 

550 S= 1 ! OPEHCH , &,CH , 11 # ” +DR* 

560 RRINTUÌ , "Lll s"CH?DR;T;S 

57S PRiHT#l .. ,, B-P:"CH;0:GET#CH,T#,8* 
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530 

590 

300 

610 

620 

630 

646 

650 

660 

678 

680 

698 

706 

710 

715 

720 

725 


FORFÈ-IT08 

GETEiaIFR*~" "THEN7Ì0 
FORCO* ©T031aGET#CH r X$ 

I FX$= " " THENX$-CNR* < 6 > 
FE$>!CC>=X$ aNEXT :.MF*=" ri 
F0RK=3T018 sNF*-HFS+FE* , tK> aNEXT 
IFNO$-LEFT#< HFS ,U >THEN1280 


NEXTFE 

I FT$ = 11 Tl THENT$-CHR$ < 0 > 

I FS$-" 1 ' TNENSf-CHRS<0 > 

T=RSC<T^> aS=ASC<S#> 

IFTO0TNEN560 

FRINT"»J0N TROVRTOR"NF& 

CLOSECHiCLOSE13CLOSE4IGQTO240 


REM 

REM 

REM 



= GESTIONE ERRORI DH DISCO = 



730 INPUT#! ^.CE^ERS^ET* -ES$ a IFCE*=“00 ,, THENRETURN 
740 PRI NTCE$ r ERS ^ ET$ js ESS : GOTO710 

j * 1 .yi IE! C 2 P C M retto mito arr-r Mr h*ir* l-i-m +—r MW I —*1 *-H-i ■*#!— -r—r i-tt+i —rr- tttt m- -rr*i S*#- ^t+- ttoto -•■** i-*—• •*■*- -*—*■ 

y^r^J- rl&l i--———---*----— 

750 REM —==-= QUALE DRIVE ? =======* 

^ ^ -j *™ ^*"| 7 7 »— 333 ^ 1— ~ -. ■ 71» ISt JSt SE CT -333 771 r——- " «77 tolto- m 331 33 S3 713313! S -77 717 33 

760 FRI NT 11 DRIVE " % DR* r, Iflit M j* i I-NFUTQR* 

770 I FDR^O 11 0 " RNDDR^O lf 1 #I THEH760 
780 DR=VALCOR$> 


790 

795 

800 

305 

810 

820 

8S0 


RETURN 

^ |j '*j 333 771771- -77 7-7 771 «7* 77! -77 77-177 77! 77177 77- 771717 E33- 7*7177 771717 77! 771 m—177 ■ IT 717 

REM *== SCELTA TIPO DI FILE »«» 

REM »ffl8SK»isass5MBSMS5aBSiB!iS!™saassssfBS«ss 


FRI NT 11 d0=DEL ; i -SEQ ; 2=PRG ; 3=USR f 4 = REL ja S=>MENU“ 
INPUT 1 ’ ATIFQS 2|i«t" aR ; IFR<0ORR>5THEN820 

IFR-5THEN7I0 


848 

350 

860 

S70 

830 

890 

385 

300 

905 

310 

926 

930 

940 

350 

960 


PG=2+32*<FE-1>sTP=R+Ì28 
FRI NT# 1 ^ "U1 a " OH ; OR .a T.? S 
PRINT#1 , ,r B~Ps “CHjPG 
PR I NT# CH , CHR$ < TP > .s 
PRINT#i,« U2a"CH;OR* T;S 
RETURN 
REM 


REM -* IL FILE VR RECUPERATO ? = 

R E M — ~ “—— — : —2 sr ^ s =: s: s=r = = = ™ asr =2 ss ss sì S2S32 ss ss 

IFMIG$<NF$ ,1^1>=CHR*<0>THEN1420 
INPUT 11 flDA RECUPERARE <S/N/END>* 

IFR^- 11 S" THENGOSUB800 SPRINT#! , 11 B~P 
I FLEFTS < R$ , 1 >^= » E " THEN 1420 
RETURN 

^ -“33 332 SI ^2! s 3S 2^ i333 333 32J X? S3 3^S 77 333 S3 333 ™ 7— 77177 37177 


HlflHi" :R* 
s *’CH>P0^32 


970 FRI NT <l RECUPERO TUTTI I FILE" 

980 RT-—! :GOTO151© 

930 REM “=ss==ssa33=E“===z=s=3== 

1000 FRI NT 11 CONVALIDA »" .? sGOSUB750 
1018 CLOSE1aOPENl ,3 r 15SPRINT#!."V'^OR* 
1026 Q0SUB72©:G0T0710 
1200 REM ==========^==“===«5==== 
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1210 
1220 
1230 
1330 
1346 
1420 
1430 
1440 
1458 
1500 
1585 
1518 
1528 
1530 
1540 
1550 
1568 
1578 
1580 
1598 
1600 
1618 
1628 
1630 
1648 
1658 
1668 
1670 


1690 
1700 
1710 
1720 
1738 
1748 
1790 
1800 
1810 
1323 
1836 
1840 
1893 
1900 
1 91 0 
i 923 
1930 
1940 
1950 
1960 
1970 
1930 
1990 
2000 
READY 


PRIMI' 1 TROVATO IL FILE "NF$ 

PRINTIN* 

GQSUB30© 

PRIMI "CHE TIPO ERft ?" 

GOSUB800 

IHPUT "CONVfìL IOR < S/N > Siti! 11 ? R* 

IFr*="S«THEN10C0 

GOTO? 10 

PRI NT " S /1 SUfìL I ZZfiZ I ONE/STAMPA DIRECTORV 11 
REM == = == = = =^ = s=-s=-^ = = = =--= = =: = = = = 

GOSUB750 : INPUT"STAMPA NI HI 11 ;R$ 
SP=0iIFR^ ,, S H IHENSP=“l :GPEN4,4 
GÒSUB 1900 s PR I NT X H$ s S=* 1 
IFSPTHENPRINT #4,IN£ 

IFSTTHENPRINT"STAMPANTE SPENTA" sEND 
OPEN1 1 SS SPRINT# 1 jr 11 1 ,, +DRf 

OPENCH^ 8 ,CH , “ # 11 +OR$ : GOSUB728 
PRINT#Ì./ J U1 : "CHjDRjTjS 
PRIMI#:GET#CH, T£,S* 

FORFÈ-ITOS 

GETR$ * I FR$= 11 " THEN1730 
FGRCC°0TO31sGET#C 
I " " THENK*=CHR* ■: 0 ) 

FE*<CO=X£ sNEXT sNF$=" 11 
F0RK=3T01&>NF*“HF*+FE*<K> tNEWT 
GOSUB300:IFRT RND < FT=0>THENGOSUB900 
IFFE* < 3 > “CHR* C 6 > THEN1730 
NEXTFE 

IFT*- 1 ' "THENT^-CHR^ <CO 
I FS* = " ” THENS*=CHR* <C 0 
T=ASG<T$>:S=RSC<S$> 

IFTO0THEN i 580 
IF RT THEN1420 
T»TR;GOTO7Ì0 

REH ==3 = =SS3S = E= = = = = ==:=t=ESE3 = ==35S:==: = 

PRINT Jl aCANCELLAZlONE FILE" SGOSUB750 
FRINT"NOME DEL FILE DA CANCELLARE " 

XNFUTR* :CLOSE 1 sOPENJl ^8,, 15 
PRINT#!, J, S: J, +DR*+" : "+R* 

GOSUB720 ; GOTO? 10 

^ SS r-rr— -- m —T- pivi- » B-ri- r—iii-i m rrL i —2 -22 ISJ -spi — — 

REM LEGGE HOME, IDENTIF.DI SONETTO 
PO-6 :1FTR—1STHENPQ=144 * 

S=8 :OPEN 1 ,8, 15, ” 1 11 +DR$ :GOSUB720 
OPENCH r 8 CH r"#" ;PRI NT# 1, 11 U1 : 11 CH } OR ; TR > S 
PRI NT#1 r J, B—P ; ";CH;POsh4F^ M " 

FORK” 1 TOSO :GET#CH ;NF3=NF*+X$ sNEW! 

PRINTOR* ,J 11 NF£ : I FSPTHENPR I HT#4 , DR $ 11 " NF$ 

CLGSECHsCLGSElsRETURN 
ORTADEL ,SEQ , PRG , USR ^ REL XXX 

PRINT M JF INE" sCLOSEl sCLOSECH:CLOSE4 SENO 
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Qualità 

assoluta per il vostro 
Commodore 



MDA è qualità assoluta sia nel campo dei 
dischetti che deile cassette magnetiche e 
dei nastri inchiostrati. 

Una tecnica di spalmatura esclusiva assicura 
a dischetti Brown Disc un rivestimento 
di minor spessore, quindi una maggiore densità, 
mentre il particolare sovrarivestimento ed un 
layer di alta qualità migliorano le caratteristiche 
di adesione/coesione e la durata del dischetto 

e delle testine. 


X- liyi 11 s.r.l. 

Via S. Giuseppe 137 21047 Saronno 
Tel. 02/96.20.914/5 - 96.20.015, 
Telex 380426 API 047 
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nell’entrata del file, il tipo sosti¬ 
tuendo a quello preesistente il ti¬ 
po “Deleteri” (cancello), contras- 
segnato dal valore 0. Inoltre ren¬ 
de liberi nella BAM i blocchi. La¬ 
scia però inalterati il nome del fi¬ 
le, il puntatore (traccia, settore) 
al suo primo blocco, la lunghezza 
in blocchi ed altre informazioni 
(che riguardano solo i file relati¬ 
vi). 

L’unica informazione persa 
durante la SCRATCH, dunque, è 
quella sul tipo del file; esso viene 

p erciò richiesto alf utilizzatore 
del programma (normalmente si 
propone 11 tipo 2 = tipo program¬ 
ma). 

Questo programma permette 
di cercare nella directory, per no¬ 
me, un determinato file che si era 
cancellato per errore, oppure di 
cercare sequenzialmente nella di¬ 
rectory tutti i file, anche quelli 
cancellati, visualizzarli, chieden¬ 
do per ciascuno di quelli cancel¬ 
lati se si vuole salvarli. 

Per la ricerca di un file con un 
certo nome vale la sintassi Com¬ 
modore: se si imposta nomefile* 
si cerca il primo file il cui nome 
inizia con i caratteri nomefile. 

Dopo aver eseguito queste 
operazioni ed aver quindi rintrac¬ 
ciato la posizione nella directory 
dell’entrata del file, è necessario 
eseguire una convalida del di¬ 
schetto, Ciò (comando VALIDA- 
TE o >V nel DOS Suppuri o V 
attraverso il canale comandi 15) 
fa si che risultino nuovamente 
occupati i blocchi deallocati dal¬ 
lo SCRATCH, cosicché, se si scri¬ 
vono nuovi file, questi non ven¬ 


gano sovrapposti. 

Ovviamente il programma va 
eseguito prima di aver fatto qual¬ 
siasi operazione di scrittura o co¬ 
piatura sui settori che il file da 
recuperare occupava. 

La convalida (che oltre a rial- 
locare i blocchi ricostruisce i col¬ 
legamenti tra i vari settori del fi¬ 
le) non è automatica, ma viene 
comunque ricordata all’utente 
quando necessaria. Ciò perchè 
per dischetti molti pieni può du¬ 
rare alcuni minuti, e si vuole per- 


Lienco variabili usate 


m e t tere all’utente di abortire 
quanto fatto. 

Uso del programma 

Risulta agevole: è prevista la 
stampa della “directory amplia¬ 
ta”, che dice anche quali sono i 
file cancellati e traccia e settore 
del primo blocco di ogni file. 

Sapere dove inizia fisicamente 
sul dischetto un certo file può es¬ 
sere molto utile in certi casi. Ad 
esempio, poiché il terzo e quarto 


CC: 

CES: 

CH: 

DR: 

DRS : 

ERSJESS ,ET$: 
FE: 

FES< 

FI: 

Ut: 

INS: 

L: 

LF,LFS: 

NFS: 

NO$; 

PO: 

R,RS: 

RT: 

SJ. 

SSJT: 

SSSJTS: 

TR: 

SP: 

XS: 

TF$; 

TF$<: 


Contatore generico get da disco 
Codice errore 

Canale del disco : posto=9 

Drive unità a disco: vale 0 0 J 

Analogo 

Errori da disco 

Indice del for per i file entry 

Vettore di 32 clementi: contiene i caratteri di ogni entrata 
di file 

Tipo del file; 04 
Contatori generici 
Intestazione (per il menù) 

Lunghezza dì NOS 

Lunghezza nome file 

Nome del file ietto da disco: 16 car. 

Nome del file che cerco 
Puntatore accesso diretto 
Input generici 

Segnalatore ricerca ìuttì i file se - 0, se no li stampa 
Traccia, settore directory 
Traccia rettore dì un file 
Analoghi 

Traccia della directory = 39 0 18 
Segnalatore: <> 0: stampa, se no no 
Input generico 
Tipo file 

Vettore: del, seq, prg, usr, rei, xxx 


Fifl. elenco delle variabili 
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byte del prima blocco di ogni file 
dì tipo programma dicono da do¬ 
ve va memorizzato il file nella 
memoria del calcolatore, alteran¬ 
do con pochi comandi di accesso 
diretto al disco questi puntatori 
si rialloca tutto il programma 
senza doverlo leggere come file 
con lunghi cidi for.^next. Questa 
tecnica risulta utile per program¬ 
mi in linguaggio macchina che 
non abbiano salti a indirizzi asso¬ 
luti al proprio interno: rende 
inoltre possìbile disassemblare da 
RAM un programma copiato su 
dischetto da una ROM non in 
proprio possesso* Sono possibili¬ 
tà riservate agli esperti, su di- 

k 

schetto poco pieni, al fine di li¬ 
mitare il rischio di perdere dati 
importanti per aver commesso 
qualche errore di calcolo dei pun¬ 
tatori. 

Modifiche e note 

I DRIVE con 35 tracce 
(3040/4040 /etc.) richiedono 
TR=ltì nella linea 160. 

Questo programma non è sta¬ 
to volutamente scritto in lin¬ 
guaggio macchina per essere più 

facilmente modificabile e/o am¬ 
pliabile e per poter girare su mac¬ 
chine delle varie serie Commodo¬ 
re, che hanno le routine di gestio¬ 
ne dei dischi differenti ed alloca¬ 
te a indirizzi diversi su ROM, E 5 
comunque abbastanza veloce: la 
ricerca (lineare) dell’ultimo file 
(il 224*) su un dischetto del- 
1*8050 richiede 2 minuti e 1/2. 
D’altra parte un numero cosi ele¬ 
vato di file si ha solo su dischet¬ 
ti-archivio, che non sì cancellano 


mai. Ciò che richiede molto tem- rapide, facilitando cosi Teventua- 
po è invece la convalida dei di- le uso di questo programma, da 
schetto, che non si può accelera¬ 
re, essendo eseguita dal sistema, 
nè interrompe. Eventuali coman¬ 
di inviati aF unità a disco durante 
la convalida bloccano il sistema 
fino al termine della convalida. 

E* consigliabile lavorare su di¬ 
schetti con pochi file: sì hanno 
ricerche di file più veloci, direc¬ 
tory più leggibili e convalide più 


CROSS REFEREHC E 

PROOfRfìrWlfl ì RECUPERO FI LF" 


-— — — — -- - “ 

! LINEA DEL PROGRAMMA 


ee 

( 

ì 50 


620 

1620 

1640 







CÉ* 

j 

730 

746 










cu 

! 

Itì0 

550 

560 

570 

600 

7H3 

650 

360 

870 

380 

330 


! 

\ 570 

Ì53tì. 

1590 

1620 

1930 

1940 

: 950 

1970 

2000 



DR 

l 

5É© 

7S0 

850 

630 

1580 

1330 






OR* 

f 

1 6® 

540 

550 

760 

770 

780 

101® 

S 560 

1570 

1&3S 

1920 


1 

i960 











ER* 

p 

730 

740 










E9* 

! 

730 

“40 










ET* 

i 

730 

"48 










FE 

( 

500 

650 

040 

1600 

1690 







FÉ* K 

j 

140 

300 

310 

340 

£20 

63P 

1640 

1 £50 

1670 



FT 

i 

310 

320 

330 

1660 








I 

1 

1 50 











IH* 

1 

*70 

1320 

1530 

1340 








K 

1 

100 

490 

490 

500 

630 

1650 

195A 





L 

4 

490 

490 

500 

5Ì0 

640 







LF 


340 

370 










LF* 

1 

37 O 

400 

410 









NF* 


330 

390 

620 

630 

£40 

“Ù0 

91© 

1210 

1 640 

1650 

l94G 


| 

1450 

I960 










NO* 

j 

490 

490 

510 

520 

640 







PO 


040 

360 

930 

1910 

194W 







R 


270 

£30 

S20 

830 

S40 







R* 

! 

140 

£50 


£70 

590 

920 

930 

340 

1400 

1430 

1516 


1 

1570 

l£lé 


1930 








RT 

i 

270 

500 

1660 

1 730 








£ 

I 

160 

550 

560 

690 

350 

S30 

1530 

1500 

1 7 ì 0 

1920 

1930 

8 * 

J 

570 

670 


1590 

17O0 

1710 






5P 

f 

390 

410 

1520 

1540 

196® 







SS 

* 

300 

360 










ss* 

| 

360 

400 

410 









ST 

f 

1550 











T 

f 

160 

540 

560 

£È0 

690 

£50 

380 

158& 

1710 

1720 

1740 

Tt 

! 

570 

360 

630 

1590 

1690 

1710 






TF* 

j 

330 

330 

390 









TF*< 

( 

140 

150 

330 









TP 

l 

340 

£70 










T'R 

1 

160 

540 

1740 

1910 

1530 







TT 

! 

300 

350 










TT* 

; 

350 

400 

410 









X* 

■ 

140 

600 

610 

620 

16£® 

1630 

1643 

195S 











■f i 

£ : «l*nco 

de \ L €r 

m iW' i afc. i 

li 


tenere come rimedio nel malau¬ 
gurato caso che si cancelli acci¬ 
dentalmente un file che serviva 
ancora. Naturalmente i file can¬ 
cellati con calamite non sono re¬ 
cuperabili con questo program¬ 
ma. ■ 

Edoardo Pa trucco 

Via AEessandria, IBI 

San* Germano Casale Monf. (AL) 

Te!. (01*2) 60343 
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Distributori Commodore 

Liguria 

Pi Inforni urica 

Piazza Cavour. 39 ■ 16043 Chiavali 
Tel- ni85/.in. 10.31 

Pie munte 

Aba tkttrunicEi di (.aritmia 

Vin Fossati. 5/0 * IDI41 Torino 

id. onaomtà 

Lombardia 

Kmiiie Personal Computer* srl 
Piazza eie Annoti, 3 - 20146 Milano 
Tel. 02/49.88.201 
Veneto, Friuli-Venezia Ci i ili a, 

Trentino-Alio Adige 
CO<K.EL Frinii Compnters 
Via Mercato vecchio, 28 - 33UJH Udine 
Td. 0432/29.14 ,66 

Emilia-Romagna, Marche 

S.H.R, Sri 

via Fantina (75 ;a 

48DIU Fornace '/arattini l Ravenna) 

Tel. 0544/4(5.32.00 


{'oscura 
M.C.S. Spia 

Via Pier Capponi, 87 - 5013-2 Firenze 
Td, CS5/57. 13.80 

Umbria - Alt<> Lazio 
Alias S> stem srl 

Via Guglielmo Marconi, 17 - U1100 Vi torbe 
Td. 0761/22.46.88 

Lario 

Kiber Italia *rt 

P ie Asia. 21 - 01)144 Roma tur 
Tel. 06/59J6.438 

Abruzzo 

Pralina Si stoni srl 

Via Tibuminu, 57 - 65100 Pescara 
Td. 085/50,883 

Camparti a. 

Computer Market 

Pareo S. Paolo Isolato, 9 ■ 80100 Napoli 
Tel. 081/76,72.222 


Puglia 

Mastiti per Ouftido 

Via L. ZuppCtla. 5 - 71100 Foggia 
Tel. 08S1/76J1J 

Puglia 

Et usi ness Aulomation S>slem 

Largo De Gettimi 46/B-46/C-1848,AdS/fì 
70J24 Bari - Tel WKV22,75,75-32.73-44 

Calabria 

Sifangelo Computerà srl 

Via Nicola Parisio» 25 - 87100 Cosenza 
Td. 0984/75.741 

Sicilia 

Ldikiìmpul Progetli 
deiì'lng. IGiuseppe Carbone 

Via La Farina. 141 Is, L 
98100 Messina 
Td: 090/29.28.269 

Sardegna 

S.L1. - Séitemi Integrali Infuniolir» 

Via S. Lucifero. 95 - 09100 Cagliari 
’Tel COT66.37.46 


Ecco dove trovi V 020 


Distributori Commodore 


Negozi Kxpert 


Negozi G.B.C. 


Negozi Singer 


Tempore* Italiana 


Salmoiraghi 


La Rinascente 



Dii Shop Primavera 

Alexandria Via Savonarola, 13 
A nenia sì Via De Ci asperi, 40 
Arezzo Via Filippo Lìppi, 13 
Bari dia Via Vimini, 58 
Bari Via Capruzzi, 192 

Buxany del Grappa Viu Jacopo Da porne, 51 

[terga niu Via F. ITA usisi, 5 

Biella Yiia Italia, 5(1/A 

Bologna Via frugnoli. 1 

Cagli il ri Via Zagabria, 47 

Campubasso Via Mons. Il Bologna. 10 

Cesano M ulema Vk Ferrini, 6 

CiniseElo ILilsarnu V.le Matteotti, 66 

Corno Via L, Sacco. 3 

Cusen/a Via Dei Mille 86 

Cuneo Corso Nizza, 16 

fravria Canavesc C.y> Mrii!cotti. 33 

Fìren» Via G. Milanesi, 28/30 

Fòggia \ io March ianò, t 

F(ir|i P.ic.y XI Degli Amhrngi, I 

Gallarne Via A. Da Brescia, 2 

Genova Via D. Fkselkj, 5 l/r 

Genovn-Sestri V ia Chiaravagna, 10,'k 

imperla Via Dclbccchi, 32 

L'Aquila Via Strada 85.2 

Lecco Viii L Da Vinci, 7 

Livorno Via Sun Si mone, 33 

LuccA Via Sari Concordi^, 16(3 

Murerete Via Spalato» 126 

Menino Via Santa Maria del Conforto, 22 

Messina via Dd Vespro, 71 

Milano Via Jacopo E\ilma, 9 

Milano Viale Certosa, 91 

Milano Via Putrella, 6 


Milano Via G Carile ini, 7 
Milano P.zza Firenze, 4 
Milano Via Alutgmirdia, 2 
Milano V.k Corsica, 14 . 

3filano-Venezia Via Gramsci. 40 
Monza Via Azzont Visconti. 59 
Morbcgno Via Fabanì, 3l 
Napoli Corvi Vittorio Emanuele. 54 
Napoli Via Luigia San felice, 7/A 
Novara Baluardo Q. Scila, 32 
l'adtoa Via Fisti )mbu, 8 
Palermo Via Liberti!., 4 
Panna Via Imbrtani, 41 
Paiia Via C. Ballisti. 4/A 
Perugia Via R, D'Andreoito. 49/5S 
Pescara Via Tiburiina, 264/bis 
Pescara Vili Trieste, 73 
Piacenza Via IV Novembre, 60 
Pisa Via XXIV Maggio, 101 
Pistoia Via Adua, 35(1 
Potenza via Mazzini, 72 
Pozzuoli Via Pergole si. 13 
Khnini Via Bertola, 75 
Roma Via Ponzio Coni in io, 46 
Roma Via Cerreto Da Spoleto, 23 
Roma P.zza Sun Dork Di Piuiic, 14 
Roma V ie Quattro Venti, 152 
Roma Largo Bulloni, 4 
Savona Via G. Scarpa. 33/r 
Sondrio Via Nazario Sauro, 28 
Teramo Via Martiri Pennesi, 14 
Temi Via Becca ria. 20 
1 orino Via Chiva&u, 13 
Torino C-M> Grotto, 2(19 
Torino Via Tripoli, 179 
Trento Via Sigitele, 7/1 
'Ire viglio Vi Elle Buonarroti, 5,'a 
Trieste Via F. Severo, 138 
Udine Via Tdvagnaaxr, 89/91 
Varese Via Carrobbio, 13 
Verona Via Pontiere. 2 
Mareggio Vìa Volta, 79 
Voghera P.zxa Carducci» Il 
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SINGER 


T 


(SI 

/R 


fi Commodore 

COMPUTER 






Come fare un listino animato per la vetrina del negozio . 


Se ti serve 

UN BUON INDIRIZZO 
se vuoi inviare 
UN BUON MESSAGGIO 
chiama lo 
02/714417-419 


I NOSTRI SERVIZI 


* Fornitura mcUri^i categorici 
■ Stampa diretta su buste 

* Lettere personalità te 
{e semi personalizzate) 

* Battitura indirizzi 

* Cessione nastri 

* Creazione nastri clienti 

* Etichettatura 

* Piegatura 

* Imbustatoti© 

* Celofanatura 

* Spedizione 


INTERPELLACI 


+ZL< 




INDIRIZZI DELFINI SRL 

PUBBLICITÀ 1 DIRETTA 

VTAARD1GO’ 17 
Tel. 02/714.417-413 


LA routine che segue realizza sul 
video un effetto molto simpati¬ 
co, per cui può essere inserita in 
altri programmi oppure utilizzata 
a scopo pubblicitario nei negozi. 
Essa, infatti, simula lo scroll oriz¬ 
zontale di una scritta inserita pre¬ 
cedentemente. 

Le poche righe di programma 
non sono di difficile comprenslo- 
ne e quindi la loro spiegazione si 
può riassumere in questo RE- 
Mark, 

10)lnserimento della frase da far 
scorrere sullo schermo (massimo 
83 caratteri) e pulitura schermo. 
20^)Verigono aggiunti 22 spazi al¬ 
la stringa inserita in lìnea 10 in 
modo che la scritta compaia da 
destra. 

30j Ciclo interdipendente con la 
stampa della frase. Il ciclo è fino 
a 128 in quanto la scritta deve 
scomparire nella V colonna. So¬ 
no necessari quindi altri 23 cicli, 
oltre ai primi 83, per permettere 
hi scomparsa delia scritta sul vi¬ 
deo, 

40j'Porta il cursore in alto a sini¬ 
stra e scende di 10 righe, dopo di 
elle stampa i 22 caratteri più a 


destra partendo dalla posizione 
mobile 1-22. 


10 INPUT A$:PRÌNT CHR$ 
(147) 

20 A$=" "+A$ 

30 POR 1=23 TO 128 
40 PRINT CHR$(19};TAB(22G) 
;MID$<A$,l-22,22i;" " 

50 FOR J=! TO 100:NEXTJJ: 
GOTO 30 

50ÌCiclo a vuoto per la regolazio- 
ne della velocità delio scroll, 
chiusura del ciclo principale e ri¬ 
pristino dello stesso al suo termi¬ 
ne. 

Per ottenere 10 scritte identi¬ 
che che scorrono sullo schermo 
invece è sufficiente sostituire la 
linea 40 in: 

40 FOR K-l TO 10:PRINT MI- 
D $ ( A $ ,1-22,22);“ NEXTK 
I :PKINT CHR$(L9). 

Con leggere modifiche la rou¬ 
tine può essere adattata anche ai 
fratelli maggiori della famìglia 
Commodore, * 

Corrado Montaltr 

Via Lidi ce # 4 
40139 Bologna 
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€OKM«N 3000 


CUfiiklEÙiU HABDWAREi 
HlfBdmilH'fWWfll PKtìHOSiAl ■ 

65100 PESCAIA - Va Mattini, 3S Tol m •< 31.607 

COSMOS 3000 ELETTRONICA 

ROM PER COMPUTER CEM VIA MAZZINI, 38 - PESCARA - TEL. 085/31607 

PET SERIE 3000 / 4000 / 8000 

* KIT BASIC 4.0 {5 ROM) L. 87.000 

BASIC PLUS 4032/ 3032/ 3032 L. 43.000 

* KIT DE ESPANSIONE 4016 A4032 L- 60.000 ‘ J SEGUENTI PRODOTTI 

* KIT DI ESPANSIONE 3003 A 3032 L, 86.000 FINO AD ESAURIMENTO 

* ESPANS. A 32K PER 2001 (OLD ROM) L. 460.000 

* MIRCO ASSEMBLER C3. PER 3032 L. 43.000 

MICRO ASSEMBLER C3. PER 40/8032 L 83 000 


Vie 20 Vie 64 

MICROASSEMBLER C3, PERVIO 20; POTENTE SISTEMA OPERATIVO PER DIA¬ 
LOGARE CON IL CUORE DEL VIC (6502) r NUOVI ORIZZONTI PER LA RISOLU¬ 
ZIONE GRAFICA CON UN NUOVO MODO DI PROGRAMMARE. 

KITC3. L. 41,000 

BASIC PLUS (TOOLKIT) KIT COMPLETO L. 41 000 

ESPANSIONE DA 8KAM CON C3. E BASIC PLUS L 170 000 

ESPANSIONE DA 16KAM CON C3, E BASIC PLUS L. 280 000 

LE ROM VENGONO INSERITE ALL'INTERNO DI UNA QUALSIASI ESPANSIONE. 

MICROASSEMBLERC3. PERVIO 64 SU CASSETTA L 60.000 

I PREZZI SONO COMPRENSIVI DI IVA E SPEDIZIONE. 

SCRIVERE PER INFORMAZIONE DETTAGLIATE, RISPONDIAMO A TUTTI. 



COMMODORE 
ASSISTENZA TECNICA 


He> r -2' 


bonwar 


Exteded bas 
$ leve! 

! Oltre 50 comari 
in più a dfsposizior 
% del vostj 

'I computi 

f Compilatori 

per rendere bid fraziona 
la stampante 4G£ 


rofazer 

■no da 









8032 


Caratteri grafici 


1*8032, soprattutto per chi possedeva il 4032\ ha un handicap: non consente l’uso dei caratteri 
grafici direttamente dalla tastiera Questo inconveniente viene superato con la routine che vi 
proponiamo. 


QUANTE volte vi è capitato di 
avere bisogno di un carattere gra¬ 
fico e quante difficoltà avete in- 
centrato per ottenerlo non essen¬ 
do disponibile direttamente dalla 
tastiera rìelf8032? 

NelTS032 la Commodore ha 
eliminato l’accesso dalla tastiera 
a molti caratteri grafici, perciò, 
chi Volesse ancora usarli, deve fa¬ 
re uso dei CHR$ che ne compli¬ 
cano notevolmente Vuso. 

Le routine che seguono servo¬ 
no ad ovviare questo problema 
creando un tasto di controllo che 
ha la funzione dello SHIFT dei 
computers Commodore prece¬ 
denti. 

L’uso è molto semplice; infat¬ 
ti, una volta fatto partire il pro¬ 
gramma, è sufficiente premere il 
tasto T\ che funge da tasto di 
controllo e, tenendolo abbassato, 
premere un qualsiasi altro tasto, 
anche se shiftato, e sul video 
comparirà il carattere grafico cor* 
rispondente a questo. 


Premendo il tasto 2” sul video 
comparirà un 2 lampeggiante in¬ 
dicante che il programma è in 
funzione. 

Qualcuno si sarà chiesto come 
mai ci sono 3 programmi dei qua¬ 
li 2 in Basic. La risposta è sempli¬ 
ce: infatti ho cercato di dare la 
possibilità di caricare il program¬ 
ma direttamente come istruzione 
in linguaggio macchina o per 
mezzo del basic; inoltre ho cerca¬ 
to di risolvere il problema per co¬ 
loro che nelle locazioni dal 666 al 
785 hanno un programma in lin¬ 
guaggio macchina, dando la pos¬ 
sibilità di allocare il programma 

in qualsiasi zona di memoria 
compresa tra 1030 e 32647* 

Il secondo programma carica 
la routine in L.M. dalfindirizzo 
al, perciò è sufficiente alla riga 
240 porre un valore ad al per 
scegliere Tinizio della routine in 
L.M, 

Lasciando la riga 240 intatta, 


il programma legge il limite mas¬ 
simo della memoria RAM per il 
basic e calcola il valore di al af¬ 
finchè la routine si collochi nella 
zona più aita della memoria 
RAM, 

Nella scelta del valore dì al 
bisogna fare alcune considerazio¬ 
ni, infatti il programma n. 2 limi¬ 
ta automaticamente la memoria 
usata dal basic ad al , che comun¬ 
que non deve essere minore di 
1024 nè maggiore di 32647; Ciò 
spiega la presenza di altri 2 pro¬ 
grammi dei quali uno è in basic 
ed ha la funzione di caricare la 
routine in L.M. passando per il 
basic. 

Il programma in L.M. inizia 
dalla locazione 666 ovvero 029À 
in esadecimale nel buffer della 
prima cassetta. 

Il programma in L,M,, una 
volta caricato, va inizializzato 
con SYS 677, mentre per abili¬ 
tarlo occorre SYS 666 e per disa- 
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Programma ruro 1 in basic 


1 00 
110 
12© 
13© 
14© 
150 
160 
170 
180 
19© 
200 
210 
22 © 
230 
240 
258 
260 
27© 


11 a H tab<180 chr*«C15> ? 

##########################################;* 

# 

CBRRTTERI ORfiFICI PER CBM 8632 # 

# 

BV # 

Silvano ane l lo # 

# VS 1,©# 


" # 
,J # 
" # 
,J 4 
" # 

ii 
ii 


" Per ubi listar lo....SVS S 666 " 


28© 


29© 

30© 

31© 

32© 

33© 

34© 

350 

36© 

37© 

308 

39© 

40© 

41© 

42© 

43© 

440 

450 

46© 

470 

4S© 


pr in+ 
pr i nt 
pr irrt 
pr i nt 
pr irrt 
pr i ni: 
pr in-t 
pr i rrfc 
pr int: 
pr in^t 
rem 
pr i rrt- 
prirrfc 
pr irrfc 
print 
pr xri’t 
pr i n"t 
pr ini: 
pr ini: 
pr ini*. 

-Pory“ 
readx 
pokev 
next 
pr irrt 

prìnt ,r c* m U w puoi continuar e 11 

pr i r.t 11 aEBE6188SBCTBBS^C8BBCBBI&ys essSHBT 

netti 

end 

data* €2,2,134,145,162,176,134,144,96,234,234, 162,3 
datai 33,42,232,133,43,76,154,2,234,165,151,2©1,5©,24© 
dataS,201,255.208,17,24©,12,198,198,2©1,255,208,12 
datai 69,32,164,198,145,196,141,191,2,76,85,223,169 
daia213,133,144,76,35,22©,165,151,2©1,5©,240,26,281 
d at,*255,2©S , 25,230 ,198,165,170,201,1, 2©S , 1 © , 164,198 
datai36,177,136,56,233,128,145,196,169,176,133,144,76 
data85,228,164,198,136,177,196,24,105,64,162,5©,142 
datai91,2,76,289,2,234,163,35,133,144,169,228,133,145 
dat a96 


" Per dilatai 1 iter lo.-.. » SVS 1 777 11 

Per ottenere i caratteri aratici pigiare 
l * il ta^to <2> e con t e rnpor an e axn en t e i l tasto 
'* corrispondente al simbolo voluto. 

666to785 


Ci-' 

7 


bilitarlo si ricorre a SYS 777, 

Una volta caricati, i program¬ 
mi si fanno partire con RUN 
(conviene registrare il programma 
all*inizio del disco, infatti per ca¬ 
ricarlo e farlo partire basta pre¬ 
mere 3HIFT-RUN/ST0P). 

Con ii programma in basic n, 
I sotto READY, comparirà SYS 


666, perciò se volete abilitarlo 
premete RETURN oppure SHI- 
FT-RETURN. 

Nel programma basic n, 2 la 
routine in L.M viene abilitata au¬ 
tomaticamente, 

Per usare tutti i caratteri grafi¬ 
ci consiglio di premere i due 
SHIFT e il tasto 2 TÌ , 


Per tornare ai caratteri minu- 
scoli occorre usare PRINT 
CHR${142). 

I programmi si basano sul fat¬ 
to che ad ogni carattere ne corri¬ 
sponde uno di grafico il cui codi¬ 
ce è uguale al codice del carattere 
incrementato di 64. 

Nella tabella a corredo sono 
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